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ROSTER OF ATTENDEES 



1032 MRS* BETTY CILSICK 
GEORGIA STATE COLL.* 
ATLANTA *GA* 



1064 LONA HECKART 

AEROSPACE CORP* 
PATRICK AF©* * FL A * 



1118 NANCY PAQUIN 

PUBLIC HEALTH SERV* 
ROCKVILLE*MD* 

1170 LANNY L* HOFFMAN 
GUGGENHEIM LASS 
PRlNCETONtN* J* 

1238 RENE SEUIGNY JR* 

HAYES INTERNATIONAL 
HUNTSV I LLE • ALA • 

1258 FRANCES K* OURKAN 
U*S*A«£*C* 
NEW YORK*N*Y* 

1290 ROBERT D* WEEMS 

N*C* STATE COLLEGE 
RALE ISH • N • C • 

3016 THOMAS P* SOOANO 
ITT FEDERAL LABS 
FORT WAYNE* IND* 



1118 JAMES £• DALY 

PUBLIC HEALTH SERV* 
ROCK V I LLE *>MD* 

1177 LEON P* GOLDBERG 

PRINCTON U* PRO*J ACC 
PRlNCETONtN* J* 

1238 W* S* HAMER 

HAYES INTERNATIONAL 
HUNTSV I LLE* ALA* 

1273 JUDITH KOERNER 

ARGONNE NAT* LAB* 
IDAHO FALLS* IDAHO 

13S2 WALKER R* HURD 

DPI * BOARD OF EOUC* 
MEMPHIS* TENN* 

3041 ARTHUR P* WOODS JR* 
ARMCO STEEL CORP 
M IDDLETOWN • OH 1 



3053 EUGENE C* EWING 

NAT COOP REFINERY AS 
MC PHERSON* KAN • 

3059 J* RICHARD BURROWS 
H*D*+R* * ENG I NEERS 
OMAHA* NEB* 

3082 E* N* BRANDT JR*M*D* 
OU MED RES COMP CNTR 
OKLAHOMA C I TY ♦ OKLA* 



30S5 BARNEY T* WATSON 
VA HOSPITAL 
OMAHA* NEB* 

3082 PAUL A* BlCKFORD 

OU MED RES COMP CNTR 
OKLAHOMA CITY* OKLA* 

3082 LEE HENOERSON 

OU MED RES COMP CNTR 
OKLAHOMA CITY* OKLA* 



3089 CLARENCE B* GERMAIN 
CARTE CORP 
ST* PAUL. MINN. 



3096 FLOYD M* CORE 

SE I SMOGRAPH SERVICE 
TULSA* OKLA* 



3107 S» THOMAS PARKER 

KANSAS STATE UNIV* 
MANHATTAN • KAN • 

3118 J* D* PENDERGR ASS 

SOUTHWESTER POWER AD 
TULSA* OKLA* 

3206 LOLAFAYE COYNE 

MENNINGER FOUNDATION 
TOPEKA*KAN* 



3108 LEORA THOMAS 

PIONEER HI -BRED CORN 
DES MOINES* IOWA 

3136 EVERETT L* COOK 
UNIV* OF WICHITA 
W I CM I TA ♦ KAN • 

3216 J* ROBERTS BR ITT ON 
HAWAIIAN ELEC* CO* 
HONOLULU* HA WAX I 



3220 LOUIS BOVITZ 3220 
HISSING AREA TECH* , 

3227 JEROME F» FOECKE , 3238 
K+Gm BOARD OF EDUC. 
KANSAS CITY* MO. 

3242 RICHARD V* ANDREE 3242 
UNIV« OF OKLAHOMA 
N©MMAN*OKLA. 

3242 JACK 4.* MOOR I SON 3260 
WN^, OF OKLAHOMA 

32T3 GMARLES WEISS 3277 
USAF CHART + INFO 
ST*LOUIS.MO. 

32T7 ROGER GUDOBBA 3263 
LAFAYETTE CLINIC 
DETWOIT»«IOU 

3299 LEO DOUGLAS 3302 
ARGONNE NAT* LAB* 
ARGONME * I LL • 

3304 CAROL J* BILL INGHAM 3319 
LEONARD REFINERIES . , 
ALMA ♦ N ICH* 

3326 JACK T* DUNN 3337 
A VCO CORPORATION 
HUNTSVILLE»ALA. 

SOOl W* W* JONES 5014 
ACF INDUSTRIES 
ALBUQUERQUE *N.M. 

5018 JANES »• HUNTER 5020. 
LA COUNTY ENGINEERS 
%m ANGELES*CAL. 

5020 OR FRANKLIN GRAYS ILL S020 
COLORADO STATE UNIV. 

^ORT COU_lNS«COLO. 

5021 JAMES C* IRVIN 5026 
US ARMY* CORPS ENGR. 
ALBUQUERQUE »N*M. 

9027 NARVIN RUBENSTEIN : 5028 

PASA«ENA«CAL. 

5028 D* !♦ CRANICHER 5028 
STEARN-eOGER CORP. - ; 
DSN¥ER«CQLO* ' 



WILLIAM J* MCGRAW 
H IBB IMG AREA TECH* 
Hf8BlNG*MlNN. 

WALTER G* EL WELL 
NEB* WESLEY AN UNI V* 
LINCOLN* NEB. 

GEORGE A* SPRADLIN6 
UNIV* OF OKLAHOMA 
NORMAN *OKL A. 

JOHN C* NARVEY 
IBM 

ROCHESTER •MINN. 

JAMES L. GRISELL PHD 
LAFAYETTE CLINIC 
D€TROIT*MICH. 

JOE D. PEGRAM 
MEMPHIS STATE UN IV* 
MENPHIS.TENN. 

ARNE GARNESS 
CONCORDIA COLLEGE 
MOORHEAD • MI NN • 

RAYMOND T. MCNAMARA 
DEFENSE SUB SUPPLY 
CHICAGO* ILL* 

G* ENYEDY 

DIAMOND ALKALI CO. 

PA I N£SV I LLE ♦ OH I 

DAVE NIELSON 
GO /ASTRONAUT ICS 
SAN DIEGO «CAL. 

MARILYN DO I G 
COLORADO STATE UNlVt 
FORT COLL INS ♦COLO* 

LARRY JACKSON 
COLORADO STATE UNIV* 
FORT COLL INS ♦COLO. 

MARVIN J. CARR 
DOUGLAS AIRCRAFT CO* 
SANTA MON I CA # C AL • 

a* P« DUNCAN 
STEARN-ROGER CORP* 
DENVER* COLO. 

ED JURACEK 
STEARN-ROGER CORP* 
DENVER* COLO. 



5032 BOB M* WANNING 

GOODYEAR AEROSPACE 
Li TCHF IELD PARK • ARIZ 



5032 D* H* O'MERREti 

GOODYEAR AEROSPACE 
LITCHFIELD PARK ♦ARIZ 



5032 MRS* H. A* KUFFEL 
GOODYEAR AEROSPACE 
LITCHFIELD PARK* ARIZ 



5033 JOHN A. FERLING 

CLAREMONT MINIS COLL. 
CLAREMONT* CAL • 



5041 RONALD E» WILDER 

MOTOROLA SEMf CONDUCT 
PHOENIX* ARIZ* 



5043 GLENN R* INGRAM 

MONTANA STATE COLL* 
B0ZEMAM+14QNT* 



50S8 L* L# KOPPIN 

SUNDSTRAND AVIATION 
DENVER •COLO* 



5056 TED J* MCKENNA 

SUNDSTRAND AVIATION 
DENVER * COLO • 



5060 CHARLES A* BETTINGER 
UNIV* OF TEXAS 
AUSTIN*TEX. 



5073 PAUL KLEEWEl N 

CAMPUS HIGH SCHOOL 
WICHITA*KAN* 



5075 WENDELL T* BEYER 
UNIV* OF OREGON 
EUGENE* ORE* 



5076 JAMES N* BOLES 
U*C* BERKELEY 
BERKELEY * CAL * 



5077 PAUL BROWNE 

UNION OIL CO. 
BRCA*CAL* 



5086 MARRY CASTLE JR* 

PIONEER NATURAL GAS 
AMAR ILLO • TEX • 



5095 



B« G* GRANT 
PIONEER NATURAL GAS 
AMAR1 LLO * TEX • 

LOWELL A. RASMUSSEN 
WEYERHAUSER CO* 
TACOMA • WASH* 



5089 DAVID BAER 
U*S*P*H«S* 
LAS VEGAS* NEV* 

5096 BOYD O* MORRIS 
BUREAU OF REC* 
SACRAMENTO* CAL* 



BURTON L* WILLIAMS 
WHITE SANDS M*R* 
WHITE SANDS* M*M* 



5104 OR* J*R* GUINN 

TEXAS COLL* OF A*I 
K I NGSV I LLE ♦ TEX • 



SlOe ELTON W. CHASE JR* 
CLARK COLLEGE 
VANCOUVER ♦ WASH* 



5117 ASTRIK BEIRMENDJIAN 
NAT CTR ATMOS RES 
BOULDER* COLO* 



5126 WENDELL L* POPE 
UTAH STATE UN IV* 
LOGAN *UT AH 



SI 30 A*A*J* HOFFMAN 

TEXAS CHRISTIAN UNIV 
FORT WORTH* TEX* 



5131 ROGER HOFFMAN 
MARTIN CO* 
DENVER* COLO • 



5131 E*E* EVANS 
MARTIN CO* 
DENVER* COLO* 



5131 A*G« BISENIWS 
MARTIN CO* 
DENVER* COLO* 



5133 RALPH D* PERRI NE 
MASON + HANGER 
AMARILLO*TEX* 



5133 LEWIS R* WOMBLE 
MASON + HANGER 
AM AR I LLO ♦ TEX • 



5143 GERALD W • LOCKE 

TEXAS . ti®i* : ^COLLEGE 
LUBBOCK* TEX* 



5144 JOSEPH A* STRAHL 

U«S« WEATHER BUREAU 
SACRAMENTO * CAL • 



5#45 ROBERT C*> STEI NBACH 
GROSS MONT COLLEGE 
SPRING VALLEY* CAL* 



5147 RICHARD ROSANOFF 

NORTH AMERICAN AVI A. 
DOWNEY* CAL. 



5150 JOHN M* COODE 

HALLIBURTON CO. 
DUNCAN*OKLA* 



EUGENE BAKER 
HALLIBURTON CO* 
DUNCAN* OKL A • 

mornm ■ a* larcade 

HALLIBURTON CO* 
DUNCAN »0*;LA. 



51 SO GEORGE V* COPLAND 
HALLIBURTON CO* 
DUNCAN* OKL A. 

mmz car*, j* «eich 

MONTEREY PEN* COLL • 
MONTEREY* CAL* 



JAMES »• BRUCE 

SAN DIEGO CO RD DEPT 

SAN DIEGO* CAL* 



5164 KENNETH W* JONES 

COLO DEPT HIGHWAYS 
DENVER* COLO* 



5166 



JAMES M» ANDERSON 
LOCKHEED PROPULSION 
REDLANDS.CAL. 

. JOHN : ' ;L A1FL.ER 

SURVEY RES CTR U*C* 

BEWCELEY* CAL* 



5168 WARD CROWLEY 

UN IV* OF IDAHO 
MOSCOW * IDAHO 

5171 OLIVER BENSON 

UN IV* OF OKLAHOMA 
NORMAN * OKL A* 



5171 CHARLES MAUDLIN JR. 
UN IV* OF OKLAHOMA 
NOffcMAM*OKLA« 



5171 DAVE ASHBAUCHER JR. 
UN IV* OF OKLAHOMA 
NORMAN • OKL A* 



51*2 BERNARD BURGER 

HYDRA ELECTRIC CO* 
8UWN9AMIC 1 ' • GAL • 



5f 73 RICHARD «* SCHERER 
CENTRAL I A COLLEGE 
CENTRAL I A ♦ WASH* 



mm L« PIERCE LOBERG 
COMPUTERMAT INC* 
LOS ANGELES* CAL. 



5177 R*G* WAEDEMON 
TEXACO INC* 
PORT ARTHUR* TEX* 



ROBERT R. WHITE 
LA^DCPT. WATER POWER 
LOS ANGELES* CAL. 



5*69 L*E# HARVEY 

FOOTHILL COLLEGE 
LOS ALTOS HILLS* CAL* 



■«66v NOEL T* SMITH 

1 NDI ANA STATE : COLL * 
TERRE HAUTE • I ND* 



5200 AGNES W. PRUSZKA 
USAA DEFENSE BD ' 
FT* BLISS.TEX. 



LT* JACK KE^N 
USAA DEFENSE BO 

ALFRED L* . TAYLOR 
M*£» OKLA* A+M COLL. 
MIAMI ♦ OKLA. 



5201 JOHN F* PEARSON 
SPRINGFIELD SCH DIST 
SPRINGFIELD * MO * 

5202 WALTER E. MOORE 
N«E* OKL A* A4M COLL* 
MIAMI *OKLA. 



5205 M*E* HETHERINGTON 

- WESTERN : STATE COLL . - 
fiUNNISON.COLO* 



5214 WILLIAM C* PIOUETTE 
OTERO JUNIOR COLLEGE 
LA JUNTA* COLO* 



5215 ROSEMARY PETERSEN 
WDPC-UCLA 
LOS ANGELES* CAL. 

8217 MAURICE H# WITTEN 

FT HATS KANS ST COLL 
HAYS* KAN* 

9&:f9 GEORGE G« TOWN 

SEATTLE UNIVERSITY 
SEATTLE*WASH. 

5223 STANLEY WISNIEWSKI 
NORTHROP CORP* 
BEVERLY HILLS* CAL. 

5226 B* S • SHANNON JR 

WAOt-EY RESEARCH INST 
DAU-AS*TEX. 

7021 P#J* RED8ERGER 

RES COUN OF ALBERTA 
EDMONTON ♦ ALBERTA 

PAUL S# <S»AN 
RIVERSIDE CITY COLL* 
RIVERS IDE «CAL» 

A»H* BEST 
GLIDOEN CO* 
JACKSONVILLE* FLA. 

RUTH C* MOSSMAN 
IBM 

DENVER* COLO* 

DAVID R* DYE 
IBM 

WHITE PLAINS* N*Y. 

RONALD R* LAKE 
IBM 

GLENDALE * CAL* 

W*B* SCOTT 
IBM 

SAN JQSE*CAL* 

DICK WILLIAMS 
IBM 

LOS ANGELES* CAL. 

AUBREY D* WOOD 
IBM 

OKLAHOMA CITY*OKLA« 



5215 JOHN W* RETTENMAYER 
WDPC-UCLA 
LOS ANGELES* CAL* 

5217 JOHN B* OiLOUGHLIN 

FT HAYS KANS ST COLL 
HAYS 4 KAN* 

5222 ROBIN YOUNG 

UNIV« OF NEW MEXICO 
ALBUQUERQUE • N* M • 

5225 VICTOR W* HOFFMAN 
US WEATHER BUREAU 
FORT WORTH* TEX* 

5226 J*M* HILL M*D* 
WADLEY RESEARCH INST 
DALLAS* TEX* 

PAUL L* TUAN 
UNIVERSITY OF UTAH 
SALT LAKE CITY* UTAH 

REX TURCO 

US BUREAU OF RECL* 

BILL INGS « MONT * 

GERALD W* CALL 
IBM 

DENVER* COLO* 

J* MICHAEL HUHTA JR* 
IBM 

DENVER 4 COLO • 

STEVE LOPEZ 
IBM 

WHITE PLAINS *N*Y* 

GORDON W* GOESCH 
IBM 

SAN JOSE* CAL* 

DOROTHY MCGOWAN 
IBM 

LOS ANGELES* CAL. 

CHARLES C* BERRY 
IBM 

LOS ANGELES* CAL* 



MINUTES OF THE MEETING - JUNE 17-19, 1964 



The general meeting was opened ©n Wednesday, June 17* 
1964, at the Brown Palace Hotel in Denver, Colorado, by the 
Western Region President, Paul Bickford. After opening remarks 
by Paul and the IBM representatives, the meeting was turned over 
to presentation of papers and workshops in parallel technical 
sessions. New users were welcomed to the group in a session 
held Wednesday evening. This was followed by the regular sound- 
off session which is reported on elsewhere in the minutes. 

The technical sessions were held as scheduled in the 
agenda with the exception of changes in rooms. Copies of those 
papers available are included with these minutes. 

The keynote speaker at the luncheon on Thursday, June 18, 
was Dr. E. N. Brandt, Jr., M.D., Ph.D. The subject of the very 
well-received talk was, "The Future of Computers in Medicine." 

At the last general session on June 19* Dick Williams, 
Dave Dye, and Chuck Berry of IBM responded to the sound-off 
session. Paul Bickford announced that the next meeting will be 
a Joint meeting of the Western and Mid -we stern regions and will 
be held on the campus of the University of Oklahoma in Norman, 
Oklahoma, on November 9, 10, and 11, 1964. The meeting was then 
adjourned. 



ROBERT R. WHITE 
Western Region Secretary 
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SOUND -OFF SESSION 



The sound-off session was held Wednesday, June 17, 1964, 
with Chuck Maudlin as Chairman, The following is a report on 
most of the points made and the response from IBM representatives 
on Friday, June 19. 

The question was raised about the speed of the IBM 
supplied FORTRAN compilers. It was stated that the old Bell 
Interpretive System for the 650 was faster than current compiler 
systems for the 1620. IBM's reply was that the compilers are 
relatively slow because they incorporate extensive source lan- 
guage error checking at compilation. The FORTRAN/FORMAT compiler 
is the fastest of the current IBM Fortrans for the 1620 because 
most of the error checking is done by the pre-compiler. Changes 
have been made to some of the FORTRAN compilers, notably II-D, 
Version 2, to provide for in-line compilation and allow error 
checking of mathematical operations at object time. 

A request was made for an advanced monitor workshop 
which would supply enough information so that users can modify 
the Monitor program. Dick Williams stated that it might be 
possible to hold such a class for advanced systems programmers 
on a limited enrollment basis. Coincident with this request 
was a strong request for much more complete documentation on 
the software systems. Dick Williams stated that an operator's 
guide for changing Monitor will probably be available from his 
off ice and suggested that the Users Group bring more pressure 
to bear on IBM, through the Users Group Executive Council, to 
supply better documentation. 

The complaint was made that some Systems Engineers are 
not filling out APAR forms when requested. It was stated that 

this is part of their job and if it is not done, the user should 
contact his branch manager. 

Inquiries were made regarding possible future software 
systems and the answers were as follows: 

FORTRAN IV - not being planned. 

Report Program Generator - not being planned. 

A non-disk loader for Monitor programs - not likely 

because of complexity. 
A disk- independent SPS with all disk and printer 

op codes - not being planned. 
Network Analysis - near future release. 
Linear Programming Package - release in July. 
Non-variable subroutines for FORTRAN II - now available 

on FTN II-D, Version II. 
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Requests for hardware additions were made and the 
answers to these were as follows: 

Reset on 'typewriter and 1622 - RPQ 
Punch and Read start on console - RPQ 
Programmable time clock - RPQ 

Tele-processing - RPQ 834308; approximate price - 
$600/mo. including a 1026 adapter which can 
handle up to 26 - 1050 consoles on line. 

There was some comment about the 1620 failing to operate 
properly outside of a temperature range of 70-80 degrees P. IBM 
representatives requested that users notify their C.E, so that 
corrective action can be taken. 

In answer to a request for a flexible rental schedule 
for the first year of use, the reply from IBM was that no changes 
from present pricing policies are planned. 

It was explained that the machine characteristic of not 
destroying the contents of the read buffer on a reset operation 
was designed on purpose. It was felt that the best method was 
to require positive action to destroy this information. 

Inquiries about excessive down-time on the 1443 or the 
punch-read feed feature were answered by other users. Apparently 
this is not a general problem. 

IBM announced the availability of COGO-ID. It is 
described in Bulletin H 20-4219-0. The program number is 1620- 
UG-05X and it requires a 20K 1620 with one 1311 disk pack. 



This concluded the sound-off session. 



WEDNESDAY - JUNE 17, 1964 



8:00 
8:30 



Registration 



Outside Central City Room 







10:00 



12:00 
1:15 

3:00 
3:30 

4:00 
4:30 



5:00 

7:30 
8:15 



Welcome and Opening Remarks. . . Paul Bickford, Regional President 

IBM Announcements. . . ... . . Dick Williams, Chuck Berry, Angelo Arena 

R. P. Paterniti 
Index Registers . Miss Dorothy McGowan, IBM 

Coffee 



Session A 
Central City Room 

10:30 A Least Squares Solution for A 
Range Measuring Instrumentation 
System — Oliver Lee Kingsley 
and Burton L. Williams (5098) 

11:00 Boundary Value Problems in 

Ordinary Differential Equations 
with Constant Coefficients — 
Richard Rosanoff and Gordon Mah 
(5157) 

11:30 (1) A program to check elementary 
machine language laboratory 
exercises 
(2) A 519 Simulator — 

R. C. Steinbach (5145) 



Session B 
Leadville & Silver Plume Rooms 

IBM Monitor I Workshop 



IBM Monitor I Workshop 
(Continued) 



IBM Monitor I Workshop 
(Continued) 



Introduction to Matrices — 
C. E. Maudlin, Jr. (5171) 



Lunch On vc-ur own 

IBM Monitor I Workshop 



Coffee 



Simultaneous Linear Equations 
with Complex Coefficients — 
Nancy C. Kuffel (5032) 

Applications of Numerical 
Filters in the Power Spectral 
Analysis of Stationary Time 
Series — A. J. Hoffman (5130) 

The Acquisition and Utilization 
of an IBM 1620 Computer in the 
U. S. Public Health Service — 

James A. Daly and Nancy A. 

Paquin (1118) 



IBM Monitor I Workshop 
(Continued) 



IBM Monitor I Workshop 
(Continued) 



IBM Monitor I Workshop 
(Continued) 



Adjournment of Day's Sessions 

New Users Session . .Paul Bickford- .... Stratton Room &) 

Sound-off Session C. E. Maudlin. .... Tabor Room ) 
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THURSDAY - JUNE 18, 1964 



8:00 Late Registration 

Session A 
Ballroom B 

8:30 How the IBM 1620 Assists -Student 
Counselors at Junior College — 
Paul S. Chan, IBM 

9:00 (Continued) 

AD-APT — Bill Rogers, IBM 



9:15 
10:00 
10:30 

10:$0 
12:00 

1:45 
3:00 
3:30 

4:00 



Coffee 



1620 Computer Utilization in a 
Wind Tunnel Data Acquisition 
System — Stanley Wisniewski (5223) 



Promenade Area 



Session B 
Tabor & Stratton Rooms 

Generalized Filter Network 
A/C Steady Analysis Program — 
Davis H. O'Herren (5032) 

FORTRAN II - Debugging Techniques 
and Aids — Leon P. Goldberg (1177) 

FORTRAN II (Continued) 



FORTRAN II (Continued) 



Linear Programming — 

Dr. S. T. Parker (3107) 



FORTRAN II (Continued) 
Luncheon . ... .Ballroom 



Keynote Address: 

Future of Computers in Medicine. . .Dr. E. N. Brandt, Jr., M. D. , Ph. D. 

IPL V — Wendell T. Beyer (5075) IBM Disk File Applications 

Coffee 



Petroleum Exploration and 
Production Applications for the 
IBM 1620 and Plotter — 

Jack L. Morrison (5171) 

A Control Systems Approach to 
Automatic Jet Engine Testing — 
Aubrey D. Wood, IBM 



FORTRAN II and The 1443 — 
L. Hoffman (1177) 



FORTRAN II and The 1443 (Continued) 



5:00 



Adjournment of Day's Sessions 
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FRIDAY - JUNE 19, 1964 



8:00 Registration 



Session A 
Ballroom B 

8:30 SPS Tutorial Workshop - 
Clarence B. Germain 



Session B 
Onvx Room 

Panel on Education: 

Chairman: Richard V. Andree 

University of Oklahoma 



Members: Charles A. Bettinger 
University of Texas 

Noel T. Smith 
Indiana State College 

Donald L. Ferguson 
Campus High School 



10:00 

10:30 SPS Tutorial (Continued) 



Coffee 



Automatic Processing of AUTOSPOT 
and AUTOMAP Programs with the 
1620-131 Disc System — 
Jack T. Dunn (3326) 



12:00 
1:Q0 

1^29 

1:55 

2:30 
3:15 



Lunch. . .On your own 

Workshop on 10:30 Paper 

Workshop on 10:30 Paper 
Workshop on 10:30 Paper 



FORTRAN Teaching Techniques — 
Wendell L. Pope 

A Load and Go SPS with Monitor 
Control — Kenneth M. Lochner 
and Glenn R. Ingram (5043) 

How The 1620 is Used at 
Colorado State University — 
Franklin A. Gray bill 

IBM Reply From Sound-Off Session Ballroom B 

Meeting Adjournment 
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■'A Least Squares Solution 
for a 

Range Measuring Instrumentation System*' 



by 

Oliver Lee Kingsley 
and 

Burton L. Williams 



Range Instrumentation Systems Office 
White Sands Missile Range 
New Mexico 



June 17, 1964 



A Least Squares Solution 
for a 

Range Measuring Instrumentation System 
ABSTRACT 

A brief development of the least squares equations for an instrumen- 
tation system that measures a set of ranges to obtain an estimate of 
the space position of a space vehicle. In addition, a method for 
obtaining the precision of that space position is included. 

. I INTRODUCTION 

At White Sands Missile Range, the instrument that measures the radial 
range to an object in space is called a Distance Measuring Equipment 
or simply DMS. An instrumentation system capable of giving Euclidean 
three space position estimates is termed as a DM.2 /DMS system. A typi- 
cal 0M2/DM3 system usually consists of three non-colinear instrument 
or equipment sites used to measure range. 

The typical solution equations are the classical deterministic set 
that rejects the minor image solution. A four or more DME system 
presents a problem because a slight error in any range measurement 
vill not produce a set of homogeneous space position estimates by the 
classical approach. There is a need for a good method to combine 
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the set of overdetermined measurements into a single space, point 
estimate. The least squares method will provide the required space 
point estimate if the set of measurements are unbiased. 

II LEAST SQUARES DATA RSOUCT ION EQUATIONS 

The least squares equations developed minimize the sums of squares of 
the error set of range measurements. 

The observational equation from which the error equation is derived 
is written: 

(1) R . = R. + S . 

mi 1 mi 

where R . denotes the measured range from the i-th 01*2 to the 
mi ° 

tracked vehicle. 

R. denotes the true range from the i-th DM3 to the tracked 
l ° 

vehicle. 

£ . denotes the measurement error associated with the observa- 
mi 

tion taken from the i-th DME • 
The error equation is easily obtained from the observational equation, 
thus : 

(2) S . = R . - R. 

mi mi i 

The true value needs to be replaced by some suitable approximation. 
Later, the true value will be estimated by the final solution or 
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reduction equations. The assumption is made that the true value can 
be represented by the linear terms of a Taylor series about some 
nearby point R Q , where: 

From the i-th DMS, the range to the point (X Q , Y Q , Z Q ) is written: 



(4a) R 



bi 



< X o - X i )2 + (Y o - Y i )2 + (? 'o - V 2 



For any space position (X, Y, Z), the equation becomes: 
(4b) R - A/(X - X A ) 2 ^7™ Y. ) 2 + (Z - Z i ) T ~" 

The linear Taylor series representation is written: 



(5) R. 



R . + £ Ri 
oi 



(X - X ) + £*i 

a y 



(Y - Y Q ) + <^Ri 



wnere 



5> Ri 

,9 x 



(X - X.)/R . 
o 1 01 



^ Ri 



< Y o " Y i )/R oi 



<S> Ri 

3 z 



(Z - Z )/R . 

O O 01 



The weighted error sums of squares for k measurements from k DMS 
sites is written: 



(6a) k 

i-l 



3 • - ±. 

mi i?l 



m Tr" . - r! 

mi ij 
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where 'Wi is the weight given to each measurement. The errors sums of 
squares for equally weighted measurements is written: 

k 



(6b) k 



i»l 



E 2 . 

mi 



2 



Generally, the components of the instrumentation system are near enough 
alike in performance and behavior that equation (6b) is applicable. 
For a system that consists of heterogeneous distance measuring equip- 
ment (system components), each weight that would be inversely propor- 
tional to the equipments range variance would be appropriate. 



The error sums of squares are minimized with respect to the range 
measurement parameter which is a function of the three orthogonal com- 
ponents X, Y and 2. The three resulting equations thus formed are 
called the normal equations from which the estimates X, Y and Z are 
obtained : 



(R . - R. )' 

mi i 



(7a) 


,3 


r k 

± 






i»l 


(7b) 


$ 1 


\ 






j»l 

F* 


(7c) 










i-1 



(r . - k.y 

mi i 



(r . - R.y 

mi i 



The constant terms not involving (X-X )> and ( 2 " 2 Q ^ are P laced 



on the right hand side of the equation: 
(3 



Ki 



( V K.)(X o -X.)AX ♦ (Y^VjXX^X.) AY ♦ ( Z Q -Z. )(X o -X. 



^Ki 



<VV ( W AX + <VV ( VV AY + <V 2 P<V*i* : 




(ScVi-y— -x )(2 .7 ) AX + ( Y -Y.)(7 4 -3.)^Y + (2 -Z 

/ |o C ° 1 ° 1 0101 O 

l' v oi 



u-.iere 



k 

i=l 



(* 4 )<X -XJ/R . 

mi oi O 1 01 



(a .-n . )(y -Y.)/a . 

mi oi o l oi 



3 / mi oi o i 



1 oi 



Ax » 
AY 3 



/A 

i\ — A 

C 

Y - Y 



• 7 -7 



The equations can be written in compact form by matrix notation: 



(!) 

(9b) A A - C 
Solving for ffom equation (9b): 

(10) A - A* 1 C 

The final solution for X, Y, and Z can be written: 

<u) {l 

The necessary start point (X >Y *Z ,) can be obtained from a 
deterministic solution for three range measurements** The 
region for convergent solutions has not been fully explored 
at this time* 



(9a) AfAYi 




* Armijo, Larry , "Determination of Trajectories Using Range 
Data from Three Non-Colinear Radar Stations'*, Technical Memo, 
randum ?66, USASMSA, Sept. I960, WSMR,N.M. 



Ill A METHOD FOR ESTIMATING INSTRUMENTATION SYSTEM PRECISION 



The term precision estimate refers to the standard deviation estimates 
for the coordinate data X, Y and Z from the instrumentation system. If 
there exists a common range measurement variance (<Tm), then by use of 
the relative variance-covariance matrix, A~\ from equation C 10) esti- 
mates of the component variances can be obtained. The diagonal elements 
from the inverse matrix A" 1 are used to estimate the component variance: 




(12) rv \ /A,, 

v 22 




A.. I <7m 








where A^, A 22 and A^ are from the matrix A 



The total variance estimate is defined by the equation: 

(13) <?"T - ^ + ^Y + 

In terms of the matrix A, the total variance estimate is written: 

(14) ^T 2 - £m 2 Tr A" 1 

where Tr denotes the trace of the inverse of the matrix A. 
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THE BOUNDARY VALUE PROBLEM 
IN ORDINARY DIFFERENTIAL EQUATIONS 
WITH CONSTANT COEFFICIENTS 



By Richard Rosanoff and Gordon Mah* 
INTRODUCTION 



In the process of solving seventh and eleventh order boundary value 
problems in closed form, the authors experienced an improvement in 
their understanding of the requirements of good formulation for a digital 
computer. Better control of numerical error and easier programming 
and debugging were the products of improved formulation. 

The specific problems programmed were boundary value problems 
in ordinary differential equations with constant coefficients. The general 
solution of the ordinary differential equations with constant coefficients 
was known in 1739. It is mathematically simple. Its nature has been 
thoroughly explored. Perhaps just because of this, it provides an 
excellent vehicle for the study of the consequences of restrictions imposed 
by automatic digital computation. 

To put together a good computer program, one must consider , 
several ideas and points of view. Thus, although we shall be concerned 
with simple material, the structure of our paper is mildly complex. We 
include, therefore, the following outline of the material to be covered: 

1. Mathematical preliminaries 

a. The finite nature of the computer number system 

b. The implications of the finite number system 

c. A definition of linear dependence 

d. Linear dependence in a finite number system 

2. The computationally significant features of the physical problems 
used as illustrations. The equations and boundary conditions to 
be solved are also presented. 



"Senior Engineers, Apollo Structures Analysis, Space and Information Systems Division, North 
American Aviation, Inc., Downey, California. 
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3. Characteristic polynomials and their roots 

4. Basis functions and boundary conditions 

a. Definition of a basis and the mathematical requirements 
for their selection 

b. The Wronskian 

c. Boundary conditions in terms of the Wronskian 

5. Selecting a basis 

a. A group of bases 

b. Physical criteria 

c. Linear independence 

(1) Wronskian 

(2) Gramian 

d. The effect on conditioning number of a dual coordinate 
system 

6. Remarks and conclusions 
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I. MATHEMATICAL PRELIMINARIES 



The set of numbers which can be represented in a digital computer 
is not the set of real numbers. It is not even the set of rational numbers. 
In fact, it is a finite set. It is bounded from above and below, and it is 
nowhere dense on the real number system. It is not a field. For 
brevity, let us speak of the computer number set to mean the set of 
numbers available on a particular computer. For the real number 
system, it is true that if: 

A x B = C 

and if A and B belong to the real number system, so does C. This is the 
property of closure. Closure does not hold for the computer number set. 

10 51 xl0 51 = 10 102 

Both factors on the left are members of the set of numbers with which the 
IBM 1620 Computer operates. Their product is not a member of the 
set. 

The equation: 

A + = A 

Defines a unique zero in the real number system. But notice with eight 
significant figure arithmetic defining the computer number set: 

e 9#3 + e" 9,3 = 10938.019 + .000091424231 = 10938.019 = e 9,3 

yet e 9,3 is not zero because 

9 3 -9 3 
e 7 * x e 7# = .99999997 

It will be seen that this difference in the number systems lies at the 
root of many numerical difficulties. The properties of functions must be 
reviewed in light of the number system available for the calculation. 



c 



JT\, 
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One of the properties of sets of functions which is important to our 
discussion is the property of linear independence. By way of review we 
state that N functions <j>i i = 1, n are said to be linearly dependent if 
there exists a set of N constants Ci i = 1, n not all zero such that: 

n 

£ C i*i=° 
i = 1 

If no such set of exist the functions <|>i are said to be linearly independent. 

As an example, we might consider three vectors in a physical space 
of three dimensions. If the vectors are not coplanar, then they are 
linearly independent. There are, at most, three linearly independent 
vectors in the space. Therefore, any fourth vector in the space can be 
completely described in terms of three linearly independent bases or 
coordinate vectors in the space. If, by some accident, a coplanar set of 
basis vectors were taken, we should be unable to completely represent a 
general vector in the space. We have a deficiency perpendicular to the 
plane of our base vectors. 

The geometrical ideas are carried beyond a physical three space to 
N dimensional spaces in a very useful manner (Ref's. 5, 17). Further, a 
function itself, defined in some region, may be considered as a vector in 
a space of infinite dimensions, i. e. , a function space. The directions in 
the space are associated with the real numbers in the region (Ref's, 18, 
19). 

Linear independence is essentially the same idea in these extensions 
to higher spaces. The complete description of some desired function as a 
linear combination of the members of a set of functions requires that these 
functions "span" the space. If any one of them can be represented by a 
finite linear combination of the others, it adds nothing to the description 
of the space. 

On the other hand, linear independence over the real number system 
does not insure linear independence in a finite number system. For 
example: 

C x sinh(X) + C 2 cosh(X) = 6 

8 may not be zero in the real number system, but 8 = on a computer, 
if X is large enough, and 



- 4 - 



25 



II. THE PHYSICAL PROBLEM 



We have seen that the number system available to us for computation 
is limited and lacks some of the characteristics of the real number system 
in which we think. Later, we shall be faced with a choice of basis func- 
tions between bases which are completely equivalent in the mathematics of 
the set of real and complex numbers. Although we shall find adequate 
numerical arguments to justify a choice, there is also a physical argument. 
It is our point of view that the formulation which represents the physical 
problem most directly will probably be the best formulation from every 
point of view. 

With this objective in mind, we need not spend the time required for 
the derivation of equations. We have a seventh order problem and an 
eleventh order problem which have been solved on our 1620. The seventh 
order problem arose in the calculation of stresses developed in the glue 
line of a lap joint such as is shown in Figure 1. 

Two metal plates, A and B, (see Figure 1) of unequal thickness are 
joined by gluing in a lap joint of Length L. If the plates are pulled by 
forces at some distance from the joint the load must be transmitted from 
one plate to the other by shear stresses in the glue. Further, the 
eccentricity of the joint will introduce some bending, and the resulting 
rotation of the joint will result in a transverse component of the force at 
the edge of the joint. If the plates were completely rigid, one would 
expect the loads to be uniformly distributed along the glue line. In fact, 
however, the plates are not rigid but will elongate and bend in response 
to the loads they are carrying. Here lies the crux of the problem. At 
Point 1, Plate A is elongated. Plate B is not. We have almost a 
discontinuity in deformation. This requires a relative motion which is 
resisted by the glue. The resistance in the glue results in the transfer of 
load from Plate A to Plate B. The transfer of load eventually brings the 
plates to the same extension at some interior point. The situation at 
Point 2 is identical to that at 1 except that the roles of the plates are 
interchanged. 

The important thing to remember, as we construct the solution, 
is that stresses arise at the boundaries due to the elastic deformation of 
the plates. These stresses are damped out as one moves to the interior. 
Once the two plates have developed equal extensions, the solution should 
be very similar to the solution for infinitely rigid plates. 
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Figure 1. Physical Problem Represented by Seventh Order Equation 



The shear stress in the glue is labeled t. The extension stress, 
transverse to the joint is labeled cr . 



The analysis is an extension of a classical paper by Goland and 
Reissner (Ref. 2). The equations of equilibrium (under some simplify- 
ing assumptions) are: 

d ^ . g in . e = o 



, 3 '1 dx * 2 
dx 



d^g- «. dT 



dx 

which together give the homogenous differential equation: 

d ' T -sA+sA-iej, -e.e,)4^ = o (2.2) 



7 ■ * 1 5 ^ ^ 3 3 ^ 1 ' 3 ' 2 ' 4' d* 
dx d x dx 

The parameters £ . are related to the elastic properties of the plates and 
glue line. We do not wish to burden the discussion with definitions of the 
notation. Instead, permit us to state the fact about the £ . which is 
significant to the subject at hand. All of the £ . represent purely passive 
elements. They are geometric and elastic quantities. 

The boundary conditions are given in the form of six inhomogenous 
differential equations of equilibrium which must be met, three at each 
boundary and one integral condition of equilibrium to be met over the 
domain. These may be written as: 



^ 1 » J 



d j T(x) 



= F. 
dx J 



and 

L 



/ 



t(x) dx = EXTERNAL SHEAR (2.3) 


We shall summarize the 11th order problem more rapidly. The 
physical problem is once again the determination of stresses in a glued 
joint. For this problem however, we consider a section of honeycomb 
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sandwich material. It consists of a core with face plates A, shown in 
Figure 2. The section is assumed spliced to a similar honeycomb section 
through splice plates equal in thickness to the face plate. 

The three equations of equilibrium are: 

2h d 3 T 4h dT 



c 



°" " Pi J 3 " 3 dx 
1 dx 

,4 

1 d r-c h dr 

°"b = P~ 4 + 'c + 2dx 
3 dx 



2P,cr. - P ? cr = (2.4) 

4 2 b 2 c 

dx 



A consequence of these equations is: 

, _ _ + (2P 2 + P 3 ) ^ 7 3 ^4P 2 , J ^5 

3 P P,P„ , 
+ P P AJL - 1/ 3 *L = (2. 5) 

+ F 2 3 J 3 6 dx 

dx 

The boundary conditions are similar in form to those of the 7th order 
problem. 
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Figure 2. Physical Problem Represented by Eleventh Order Equation 



III. THE CHARACTERISTIC POLYNOMIAL 



From the differential equations it is possible to write characteristic 
polynomials of seventh and eleventh order, respectively. As will be seen 
later, the roots of the characteristic polynomial provide a wealth of 
information concerning the nature of the solution, the relative importance 
of the various solution components in the derivative, hence, the boundary 
conditions. Even measures of the maximum stress and physical realism 
of the solution are provided in a qualitative way. They provide the best 
link between the physical parameters which occur in the coefficients of 
the differential equation and the solution. 

Unfortunately, (Ref's. 3, 6 and 11) polynomials are subject to 
ill- conditioning and their roots may be poorly determined. In Reference 
3 it is shown that the relative error in a root a of a polynomial 
P(x) = Sa^ X 1 due to an error 5a s in the coefficient a s is given by 

s-1 6a 
a a s s 

P'(or) a 

s 

Thus, it is only necessary for 

s-1 

or a 

s 

to be large to have a great magnification of relative error in the root as 
compared to the coefficient. There is a great proliferation of methods for 
obtaining polynomial roots (Ref's. 3, 4, 6, 7, 11, 12, and 13). The reason 
for this great number of methods is that none of them are generally 
satisfactory. 

For the two problems solved, use was made of the easily variable 
precision of the 1620 version of Fortran. In the first place, the poly- 
nomials were studied throughout the data range of the problem, and 
solutions at different levels of machine precision were compared. 

The zero root of the two polynomials is, of course, precisely known 
and removed without any contribution to error. The reduced polynomials 
both consist of even ordered terms only so that we may solve polynomials 
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of fifth and third rather than tenth and sixth order. The constant 
coefficient is negative so that the fifth and third order polynomial have 
at least one positive real root each. Thus, our original equations are 
known to have a pair of real roots which are equal in magnitude and 
opposite in sign. Following Lanczos (Ref. 5), we obtain this root, either 
directly or as a reciprocal, between zero and one. The method used was 
to repeatedly evaluate the polynomial by synthetic division and test to 
isolate the root in one of the half intervals. 

To minimize contributions to error in subsequent roots due to the 
removal of the real roots, we requested a special synthetic division 
subroutine from our systems programmers. We wish to acknowledge the 
excellent job done by John Sherman of our Division in this respect. Mr. 
Sherman provided us with a compact subroutine which performs the entire 
synthetic division iteration at 28 decimal digit floating point. In this 
routine the numbers stored at 28 digits include only those currently needed 
in the calculation to provide a full high precision iteration so that any 
order polynomial may be handled without additional storage. The net 
storage required was less than required for the Fortran version of the 
same routine. The routine is now part of our 1620 Fortran library. 

Investigation throughout the data range showed the remaining roots 
to be complex. We obtained the remaining roots of the 11th order 
polynomial by the use of Muller's Method, which, so far in our experience, 
has never failed to converge (Ref's. 6 and 7). We would welcome com- 
ments based on the experience of the audience in this regard. Because the 
roots may be obtained as the square roots of roots of a lower ordered 
polynomial, they are symmetrically distributed about the origin as shown 
in Figure 3. 
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IV. BASIS. FUNCTIONS AND BOUNDARY CONDITIONS 



The solution of a homogenous fourth order ordinary differential 
equation with constant coefficients whose characteristic polynomial has the 
roots ± a ± i (3 can be represented as a linear combination of the functions. 



I {a + i|3)x {a - i(3)x (- a + i(3)x (-<*-i3)xl 
| e , e , e , e I 



(4. I ) 



Of course, this is not the only set which could have been selected. Such a 
set is called a system or basis of functions if the member functions are 
linearly independent. A test for the linear independence is provided by 
the Wronskian determinant. This is a determinant whose first row is the 
system itself and whose jth row is made up of J-lst derivative of the function 
in the corresponding column. 

We shall have a great deal more to say about linear independence in 
the next section of the paper. For the present, we wish to show how the 
programming and debugging of the problem are simplified by writing the 
derivative boundary conditions in terms of the Wronskian. Recall the form 
of the derivative boundary conditions. 

n - 1 



V b . . d . T i x > = F. (4. 2) 

i=l ^ dxJ" 1 



= 2, 



n 



at x = 



and x = L 



We see that 



d j " 1 T (x) 



dx 



j - 1 



(4.2a) 



is a column vector. We also see that recognition of the boundary conditions 
in the form (4. 2) permits us to deal separately with the specification of 
boundary conditions 0->jj) and the determination of the vector (4.2a). 
For our 11th order problem the matrix (b^ j) was computed from a coded 
input. This provided a flexibility which was most useful when numerical 
difficulties were seen in the boundary conditions themselves. Such a scheme 
suggests the possibility of writing a generalized program. 
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Notice the vector (4.2a) is a function of X and exists in an N space. 
On the other hand, the matrix (b^ j) can be written as N linearly 
independent conditions at either X = or X = L. Thus, for the two-point 
boundary value, problem N conditions must be selected from 2N derivative 
conditions and possibly some integral conditions. This draws attention to 
the fact the boundary conditions selected must be such as to specify a 
unique solution. We shall not give adequate coverage to this problem 
in this paper. Let us now examine the vector (4. 2a). It has a physical 
meaning without regard to the basis or coordinate system in which the 
solution is written. That is to say it could be written at various values 
of X as a table of numbers which would be independent of the manner in 
which it was obtained. To analyze it symbolically, however, we must 
assume a basis of functions, say {0 . The first element of (4.2a) 

(j = 1) is the zeroth derivative, or the function 

t(x) = S0 k (x)a k (4. 3) 

where the a K are the constants of integration to be determined by the 
equations 4. 2. But: 



j - 1 



dx J k = 1 dx' 



1 j.! * k -W(x)a k 



(4. 4) 



where W(x) is the matrix of functions from the Wronskian determinant. 

The recognition of these matrix products is the key to relieving the 
program of unmanageable detail. As will be seen later, a factor in the 
choice of the basis is the ease with which the Wronskian may be developed 
by a simple set of do loops. The (b i> j) matrix may be checked separately. 
Any linear independence may be displayed in easier-to-recognize form. 
The program has pattern. 

As we have indicated, the specification of boundary conditions which 
are sufficient and compatible involves more than we can discuss here. 
The reader is referred to Ref. 19- 
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V. SELECTION OF THE SYSTEM OR 
BASIS FUNCTIONS FOR THE SOLUTION 



Given an ordinary differential equation whose characteristic poly- 
nomial contains the non-repeated roots ± a ± if3 there are many choices of 
functions for the solution. Consider, for example, these four bases or 
systems: 



(a + i3)x (a - i(3)x (- a + i0)x (-a - i6)x 



(5. 1) 



| Cosh(ax) Cos(3x), Sinh(ax) Cos(6x), Cosh(ax)Sin(3x), 



Sinh(ax) Sin(3x) 



(5. 2) 



-ax . . -ax . . . ax . . ax . 
e cos(3x), e sin(px), e cos(px), e sin((3x) 



(5. 3) 



and: Z = L - X 



- ax . ^ . - ax - az . ^ . - az . . . . 

e cos(3x), e sin(px), e cos(pz), e sm(pz) 



(5.4) 



The question arises, is there a choice? If these functions are 
mathematically equivalent, which they are, can one set be superior to 
another for digital programming? The answer is yes. Let us first 
dispose of (5. 1) on the arbitrary basis that we prefer not to. perform 
complex arithmetic if we can avoid it. 

The usual textbook treatment is to point out that the functions must 
be linearly independent. For the mathematician, this condition is met for 
all of the bases under discussion. For the digital programmer, however, 
this situation may be quite different. If the domain L of the solution is 
large enough, all of the sets of functions expressed in the computer number 
set become linearly dependent: 



Lim sinh(aL) 
aL oo cosh(aL) 



= 1 



Lim 
aL — " o 



- aL . _ ._ . 
e cos(pL) = 



Lim 



aL 



e a ^sin(PL) 



Lim -aL ± i0L 

e =0 

aL —*■ co 

(5. 5) 
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In the machine, this breakdown in linear independence becomes exact. 
That is to say, we may have coshaL = sinhaL to the last digit. Of course 
one may expect computational difficulties long before the loss of the last 
tragic digit. 

Is there any way out of this dilemma? Again the answer is yes. The 
moment we realize that the finite number of digits in the calculation limits 
our ability to produce the "exact" solution we begin to consider analogies 
with approximate methods. We seek functions to represent our solution 
which "look like" the solution. Clearly basis (5. 4) is greatly superior in 
this light. Only (5. 4) of the bases considered, directly represents a 
function which arises at disturbances at the boundaries and is damped as 
it proceeds to the interior of the region. 

Comparing basis (5.4) with basis (5. 2) it is seen that the functions 
of (5. 2) approach each other in exactly the range in which they become 
large. The functions of (5.4), on the other hand, approach each other in 
exactly the range in which they drop out of the solution. 

It is not surprising that the basis (5. 4) is superior when we take 
note of the fact that it contains more physical information. Only basis 
(5. 4) is cognizant of the location of the disturbance caused by mismatching 
strains at X = L. 

Let us inquire into the physical significance of positive real parts of 
characteristic polynomial roots. In the initial value problem, with time 
as the independent variable, positive real parts have been used as criteria 
of stability. When space is made the independent variable, and the 
problem is formulated as an initial value problem, a numerical instability 
is quickly associated with positive real parts. Consider for example, 
the differential equation 

d 4 

EI. L= - ky (5. 6) 

dx 

which is the homogenous equation for the deflection of a railroad track. In 
Ref. 15, the solution is shown in several forms including the method of 
initial conditions. 
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y(x) = y cosh(Xx) cos(Xx) 
o 



+ ~2X | cos ^ L ^ x ) sin(Xx). + sinh(X x) cos(X x) J 

M Q 

— sinh(Xx) sin(Xx) - g Jcosh(Xx) sin(X x) - sinh(X x) cos(Xx)! 

2X EI 4X EI ' 

(5.7) 

where 





displacement at origin 


e = 

o 


slope at origin 


M = 
o 


bending moment at origin 


Q = 
o 


shear at origin 



In fact, the solution is damped as one moves away from a local load or 
disturbance. The method of initial conditions, however, requires that 
this damped function be composed of a linear combination of rapidly 
expanding functions. 

In the finite arithmetic of the digital computer, this means that if 
a fly settles on the railroad track in Denver and the initial conditions are 
determined to the full capacity of the computer number set some place 
this side of Los Angeles, the railroad tracks will be ripped and torn in 
the most terrible carnage since World War II. 

With time as the independent variable , the model is realistic. 
Positive exponentials mean positive feedback. The rate of growth of the 
function is proportional to the function with a positive coefficient of 
proportionality. "It takes money to make money. " "Population growth 
is explosive in a favorable environment" — "chemical reactions become 
explosive if the rate of the reaction increases with the reaction products" 
(including the final energy as a product). But time moves on. Functions 
do not have causes today and develop into effects yesterday. 

Space coordinates, however, are quite arbitrary. One does not 
need to establish a coordinate system to pull a glued joint. Thus, the 
physical meaning of the positive exponential in our glue line problem is 
seen to be a stereotyped pattern of coordinate system specification. 
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It is well known that the choice of a coordinate system can make 
the solution of a problem easier or more difficult (Ref. 21). In at least 
some problems it has great numerical consequences (Ref. 5). Interest- 
ingly enough, since the boundary conditions supply the information for 
the evaluation of the constants of integration, we see that they contain 
vital information about the origion of the coordinate system. One of 
the problems in specifying boundary conditions is to make sure they 
produce a unique solution in a defined coordinate system. 

Stress analysts have traditionally handled positive exponentials by 
testing such a parameter as a over the domain. If a>L> is large (say 
ah > 6), he uses basis (5. 3) as a special basis. He sets the arbitrary 
constants associated with positive exponentials equal to zero (when 
aL> 6) and calls his solution the semi-infinite case. We think the 
choice of basis (5.4) is superior for several reasons. For one thing, 
the characteristic polynomial may contain more than one set of complex 
roots with positive real parts. One set may correspond to a semi- 
infinite case and another to a short case. This situation actually occurs 
in our 11th order problem. Additionally, we should like to pick one 
basis and avoid programming more than one basis of functions. 

If our mission in this paper were only to show that the basis (5. 4) 
is superior for our problem, we could certainly bring this discussion 
to a close now. Our interest, however, is broader. We wish to explore 
the relative merits of bases in hopes that we may obtain criteria which 
help us in the solution of some other problem. 

We have identified part of our numerical difficulties as arising 
from a breakdown in linear independence due to the finite nature of the 
computer number set. Linear independence is established if there are 
non-zero values of the Wronskian and Gramian. For basis (5. 3) or 
(5.4), we rediscovered an ancient device for writing the Nth derivative 
which will render our discussion easier. Consider one of the functions, 
say e" ax cos(3x) 

— ccx. 

= e cos(3x) 



d£ = 
dx 



~ aX la \ 

a e cos(px) - 



3e QfX sin(3x) 



(5.8) 
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But identify 



a + i3 = R(cos(9) + i sin(0) ) 



d0 _ -#x / x 
e R ^-cos(e) cos(3x) - sin(6) sin(3x)J 



-o-x 



= - e R cos(3x - 0) 



(5. 9) 



It can be shown that: 



de cos(3x) -ax. „ J 

: = e (-R) J cos(6x - j6) 

dx J 



,j -arx . . „ , 

d e sin(3x) -ax. n J 

= e (-R) J sin(3x - j6) 



dx 1 



(5. 10) 



And since 



Z = L - X 



dz 
dx 



= -1 



, J -arz ' 

d e cos(3z) -az„ i 

-. = e R J cos(j9 + 3z) 



dx' 



(5. 11) 



d e sin(3z) -otz\ 
: = e R J sm(j0 + 3z) 

dx J 



In the seventh order problem we used the bas 



is 



-or x 



*2 X 



cos(3 1 x), e sin(3 x), e , 1, 



-a z 



-a^z 



e cos(3 1 z), e sin(S z), 



- a z z 



(5. 12) 
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The jth row of the Wronskian determinant for this basis is: 



-a. x 



-cr x 



^(-Rjj"" 1 cos^x - (j-DGj), e 1 (-R 1 ) J " 1 siri(3 1 x - ( j - 1 ) 0^, 



dx 



-: e 1 (-RJ 3 cos(3.z + (j-1) 6 ),' 

J - 1 1 1 1 



-a. z 



1 (-R 8^(6^+ (j-i) e^, R 2 j " 1 



-or z 



(5.13) 



Consider this -Wronskian if L is large. When X = L, the first three 
columns of the determinant become very small. If X = 0, the last three 
become very small. It is shown in Ref. 22 that for an Nth order differen- 
tial equation which does not contain the (N - 1st) derivative, the Wronskian 
is constant through the domain. To see that this is the fact for this 
Wronskian, it is helpful to factor the Wronskian into the three factors. 



[W(X)] = [R] [T(X)] [E(X)] 



(5.14) 



Where [Rl is the diagonal determinant whose elements are R^, [E(X)1 
is the diagonal determinant whose elements are the exponential terms 

-a x -or x -<* x -a z -a z -a? z 
e , e , e , e , e , e 

and T (x) is the remaining determinant whose jth row may be written 
(-l) j cos(0 x - je i ), (-D J sintPjX - je^, 



R 



-— cos(3 z + j9 ), sin(3 z + j0 ), 



R 



1 j 



R 



1" \ R. 



(5. 15) 



then 



[Rl = R. 



(1 + 2 + 3 + 4 + 5 + 6) = .R 



21 



[E(X)1 = e 



-{a + a + a ) (x + z) -(2a + arJL 
1 1 c. l ^ 



- e 



(5.16) 
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With considerable manipulation of rows, the [ T(X)J determinant can be 
seen to contain factors of the form 



cos (3x) + sin (3x) 

The Wronskian of basis (5. 2) is less manageable, as may be seen from 
the single term: 

w = (or - 10<* 3 + 5#3 ) sinh(<2x) cos(3x) 

- (5or 4 3 - lOc/p 3 + (3 5 ) cosh(ax) sin((3x) (5-17) 

Numerical difficulties arise because columns 1 and 2 and columns 5 and 6 
of the complete basis may be obtained from each other by replacing 
sinhtfx with coshax or vice versa. Thus, the linear independence depends 
upon the ability to distinguish the hyperbolic functions at large values of 
X with a computer number set. Through considerable algebra the 
Wronskian may be shown to contain the factors (cosh^(ax) - sinh 2 (<*x) ) 
and (cos 2 (3x) + sin 2 (3x) ). 



The difficulties with basis (5. 3) interestingly enough do not arise 
in the same manner as with (5. 2). Except for a minor phase difference 
in angles 3x and 3z the most significant difference between (5. 3) and (5. 4) 
lies in their respective [E(X)1 determinants. For basis (5. 3), this 
becomes 



(-or, - a. - ar_ + a. + or, + <2-Jx 

1 1 2 1 1 z o 
e = e = 1 

so that on this consideration the basis is seen to be at least as good as 
basis (5. 4). A similar pattern is observed if we consider the Gramian 
determinant. 



For a basis of functions {<f>j), the Gramian determinate is given by 



G. . = / 0. d>. dx (5, 18) 
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we prefer to normalize the Gramian as to 



/ <f>i 0j dx 

G*. . = — — — — = (5.19) 



/ * 



2 „» 



o 




In this form we may think of the functions ^ and <j>i as being coordinate 
vectors in a function space. The terms j are then cosines of angles 
between the coordinate vectors. One may also think of them as simple 
correlation coefficients between the base functions. 

Now consider the functions e" ax cos((3x) and e" az cos(|3z) . 
Then 



e cos(3x)e cos(6z)dx 



1,3 




J e " 2ax cos 2 ((3x)dx ^ / / e~ 2arZ cos 2 (pz)dx 



-orx 



J" cos((3x) cos(Sz) dx 



J -2ax 2 



e cos (3x) dx 



(5.20) 



If L is great the definite integral in the denominator will be approximated 
by the lower limit so that the order of magnitude of Gj 3 is e -arL . Thus, 
in this basis the functions separate into nearly orthogonal sets associated 
with the respective boundaries. 
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A similar situation holds for basis (5. 3). The exponentials fall 
out of the numerator before integration and the denominator contains 
e a ^ u . For basis (5. 2), however: 

L 



J cosh(a;x) cos((3x) sinh(^x) cos(3x)d 



x 



L 



L 



J cosh^(orx) cos^(3x)dx / J sinh^(orx) cos^(3x)dx 



L 



J . 2.x -2« x . 2. 



(e - e ) cos (3x) dx 




(e 2 " X + 2 + e'^ X ) cos 2 (3x)dx ,// (e 2aX -2+e" 2aX ) cos 2 (3x)dx 



1 



(5. 21) 



How may we distinguish between basis (5. 3) and (5. 4)? Let us 
recall that our solution is in the form 



t (x) = S a^ 0^(x) 



(5.22) 



This can be seen to be the vector t (x) in a function space, written in terms 
of its components a^ along the coordinate axes 0.j L (x). We have seen that 
basis (5. 2) is unattractive because the axes 0^ become parallel. For the 
basis (5. 3), the problem is the scaling of the axes. The length of the 
coordinate vectors is exactly the integral in the denominator of the 
Gramian. Thus, for a basis with distinct axes, such as (5. 3), the choice 
of a second coordinate origin essentially normalizes the coordinate vectors. 

Let us now consider the full matrix for the derivative boundary condi- 
tions. We may partition this matrix into four partitions as 



11 



12 



21 



22 



(5. 23) 
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Where above the horizontal line we write the conditions to be met at 
X = and below the conditions to be met at X = L. To the left of the 
vertical line we write solution components associated with exponentials 
with negative real parts and to the right exponentials with positive real 
parts (or for basis 5. 4 solution components in Z). 

We have two matrix equations (at X = and X = L). They may be 
represented as: 

[B] [Rl [T(X)] [E(X)1 = [Si (5.24) 

The matrices [B] are rectangular. They and the matrices [ Rl are 
unchanged from basis (5. 3) to (5. 4). The changes in [T(X)1 are only 
differences in phase angle of the trigonometric functions. The matrix 
[E-(X)1 , however, is very different. At X = 0, the E matrix for basis 
(5. 3) is the identity matrix. The E matrix for basis (5. 4) is the diagonal 
matrix 

-or L -a L -a^L 
1 , 1 , 1 , e , e , e 

This same matrix multiplies the E matrix of (5. 3) at X = L. 

To give the E matrix of basis (5. 4) 

If we denote the complete matrix for the boundary conditions for basis 
(5. 3) as S and the diagonal transformation matrix 

-or L -of L ~ a 2^~ J 
1,1, 1 , e , e ,e 

as C, we may write the boundary conditions in basis (5. 4) as 

[SI [CI [Al = [Fl 

except for the differences in phase angle noted above. 

If we chose to pre -multiply [Al , rather than post-multiply [Cl , it 
is seen that C represents a scaling of the coefficients [Al . This problem 
is identified by Lanczos (Ref. 5) as artificial ill-conditioning. His 
recommendation is just the sort of rescaling accomplished by the choice 
of basis (5. 4). 
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VI. REMARKS AND CONCLUSIONS 



Using basis (5. 4), we finally see the boundary condition equations 
the partitioned form of the previous section in a physical light. The 
matrix Sjj represents the semi-infinite problem at X = 0. The matrix 
S22 represents the semi-infinite problem at X = L. The matrices S12 
and S21 represent cross-coupling between the semi-infinite solutions. 

The final four figures show the solution and components for the 
seventh order problem solved with basis (5. 4). Figure 4 is a plot of the 
shear stress for a typical joint. Figure 5 shows the components of the 
shear stress for this particular problem. The components associated 
with complex roots were too small to show on the same scale. Notice 
that the physical problem — two transients moving in from the boundaries 
the solution, the solution components and the partitioned form of the 
matrix — all reflect the same pattern. 

Figure 6 shows the peel stress solution. "•Figure 7 shows the 

components of the peel stress. Ri is the absolute value of the complex 

root <2j + i Pj. R2 is the value of ci^. Recall with basis (5. 4) the 

derivatives contain successively higher powers of the moduli R.. Now R 

1 

is 6. 78, whereas, R2 is 1. 77. One is not too surprised, then, when 
crwhich is given by 



contains larger components or the functions associated with the roots 
±orj ± i(3 1# 

Notice, also, that the magnitude of the real parts serve to deter- 
mine how local the effects will be. Notice the components associated 
with ±cc\ ±- Pi are much more rapidly damped than the components 
associated with a ^, 

This same problem was solved using basis (5. 2). An interesting 
comparison of the numerical difficulties is provided by comparison of 
the conditioning number of the matrices which had to be inverted. The 
conditioning number is the ratio of the largest Eigenvalue to the lowest. 
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The logarithm of the conditioning number provides an estimate of the 
number of digits which will be lost in the inversion. For the basis (5. 2) 
solution, a 6 x 6 matrix was inverted. The conditioning number was 
2. 6. 10^. For the basis (5. 4), two 3x3 matrices are inverted (solution 
by partioning Ref. 10). Their conditioning numbers were 1. 10. 10^. 

Our conclusions follow Hamming's beautiful statement (Ref. 1): 
"The Purpose of computing is insight, not numbers. " Recognition of 
matrix products added tremendously to our insight and provided an 
unusual opportunity to see the nature of our numerical difficulties. 

We confess to a strong interest in writing more solvable equations. 
The work which has been done on best approaches to the problem of 
solving poor equations, while very useful, has already run its course. 
Nothing but more digits will improve on the best methods available. 

The problem of writing better equations is certainly not simple. 
Nor do we feel that we now know how. We do believe that the close 
imitation of the physical problem is a good clue. Further, for this 
problem we identified two mechanisms which could affect the equations. 
The basis (5. 2) led to badly skew axes, the basis (5. 3) to badly scaled 
axes. The double coordinate system improved the scaling. It is 
interesting to note that the normal equations of a least square approxi- 
mation problem become highly skewed if the coordinate origin is very 
distant from the center of gravity of the function being approximated. 

The possibility of writing a generalized program for the class of 
problems treated here looks good. If we were to write it, the first 
thing we should like to do is be very sure of our polynomial root routines. 
Another difficulty would be choosing the boundary conditions before the 
nature of the characteristic polynomial was established. 
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Figure 5. Components of Shear Solution (Note: Complex Components Were Too Small for Scale) 




Figure 6. Peel Stress Solution Curve for Seventh Order Problem 
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Figure 7. Components of Peel Stress Solution, Seventh Order Problem 

Curves are labeled with corresponding functions from the basis of the shear solution. As can be seen 
from peel stress expression, the true functions of this diagram are linear combinations of high order 
derivatives of the respective shear basis functions. 
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READER 

A program to read and execute elementary 
machine language laboratory exercises 
R. C. Steinbach (5145) 

Introduction 

Grossmont College is one of California's many public two-year colleges. 
These colleges provide three educational programs: (1) General education 
courses for the community, (2) Technical -vocational courses, (3) Transfer 
courses for students going on to four year institutions. Within the techni- 
cal-vocational area Grossmont College has a data processing program contain- 
ing a one year (four units per semester) computer programming course which 
begins with machine language. Students are capable of writing miniature 
machine language programs after approximately two lecture hours. The pro- 
gram described here monitors the student programs, allowing the student to 
see his program executed and relieving the instructor of the job of reading 
machine language programs. 

Student Program Format 

During the first six weeks of the programming course the students are assigned 
specific problems to code. Examples of these problems can be found at the 
end of this paper. For each problem, each student hands in a deck of cards 
as follows: (See Figure 1) The first card or Header Card is used to identify 
each student's program. This card contains the student's name beginning in 
column one and ending with a record mark. It also contains a five digit 
identification number beginning in column 75 and a record mark in column 80. 
Reader uses this latter record mark to recognize the header card. The Pro- 
gram Cards follow the header card. The student machine language program is 
punched 72 digits (6 instructions) per card into as many cards as is necessary 
to a maximum of ten. A record mark in column 73 of a program card indicates 




Page 2. 

that column one of the next card follows column 72 of the card just read. 
Thus the last card (it may be the first and hence the only card of the pro- 
gram) has no record mark in column 73. 

All programs return control to READER with a branch to 00000. This allows 
a manual restart (INSERT, RELEASE , START) if the student program hangs up 
and has not destroyed the READER program. 

OPTIONS 

During the time that the student has no knowledge of input /output instructions 
READER outputs the work area so that the student (and the instructor) may 
check the program results. This output may be suppressed using console 
switch 3 after the student is familiar with output instructions. The output 
device, either card punch or typewriter, for READER may be selected using 
console switch 4. This latter option allows remarks from READER to be output 
on the same device required of the student in a given problem. 

A TYPICAL RUN 

For each problem, the programs written by the students form a single deck 
which follows the READER object deck and four special data cards. (See 
Figure 2) 

The first special data card contains program identification, console switch 
settings and tabulator information for the operator. The next three cards 
contain data for the student work area, e.g. numbers to add or subtract, 
negative numbers to count. 

It is advisable to add an instructor written solution to this deck of 4 
special data cards so that the students can see the right answers and see 
one way of writing the program. As far as READER is concerned, this is the 
first student program. Note that the 4 spedaldata cards and the instructor 
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written program form a package which separates the reader object deck from 
the deck of student programs and which is easy to include for any given 
assignment. 

READER types the program identification and operator message and halts. It 
then reads the three data cards, initializes the student work area and reads 
and executes the student programs as follows: 

1. Search for Header Card. (Go to 3 when found; go to 2 on last 
card indicator.) 

2. Type "All programs read" and halt. Press start to read next 4 
special data cards and new batch of student programs. 

3. Type student identification number. 

4. Input student program, output student name and number of cards 
required for program. 

5. Branch to student program. Return to 6 is automatic by student 
or manual by operator. 

6. Output work area if switch 3 is on. 

7. Initialize student work area. 

8. Go to 1. 

REMARKS 

One should list the student program deck before doing anything else so that 
there is a permanent record of who turned in what. This is at least a par- 
tial defense against a charge of deck shuffling at execution time. 
A clumsy student can wipe out core with a TF or TR. The only thing to do is 
reload the READER, but at least you have his identification number on the 
typewriter. 

A loop, checkstop, or bad operation code can be noted by hand on the type- 
writer output and the READER restarted manually. 
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It is possible for a student to read the next students program as data. 
As soon as this is obvious, a STOP, INSERT, R/S, will restart the READER. 
A comparison of the initial listing and the run listing will determine who 
was left out and his (their) program(s) can be placed at the end of the 
student program deck. 

Conclusion 

I would appreciate comments and criticism from any interested person. I do 
not plan to submit this to the Users Group Library until at least one more 
class has tried the system; they may think up new ways of giving the READER 
trouble. 
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LAB EXERCISE I 



Numbers, described below, are in storage with the most significant digit 
flagged. 

Address of least 
Number Number of Digits significant digit 

A 6 7006 

B 2 7010 

C 4 7016 

D 3 7021 

1.1 Assume no overflow, numbers are integers. 

Replace A by A+B 
Replace C by C-B 
Replace D by D-658 

1.2 Assume no overflow, numbers are integers. 
Replace A by the integer A-2B+C-D 

1.3 Assume no overflow. Assume decimal locations as follows: 

A = xxx. xxx 
B = .xx 
C = x.xxx 
D = xx. x 

Replace A by A - D 
Replace D by C + D 
Replace C by C + 2.93 



LAB EXERCISE 3 



Note: Memory addresses above 11000 are available for your use. The first 
digit of your program is in 07300. 

3.1 Return the carriage on the typewriter. Type out the numerical contents 
of 7001 - 7009, space the typewriter, type out the alphameric contents of 

7030 - 7047. Return the carriage and type the numeric contents of 7030 - 7047. 
There are no record marks in place. 

3.2 Return the carriage, type your name (25 character maximum), tabulate and 
type your code number. 

3.3 As input to your program have one card with your name beginning in col. 1, 
and the words "1620 1/0 PROGRAM" in col. 32-47, and a second card with 5 zeros, 
5 ones, 5 twos, etc., and 5 nines in col. 1-50. Duplicate the two cards. 

3.4 I will supply you with 3 cards which you will use as input to your program. 
Each card will have the following format: 

A five digit number A in col. 6-10. 
A nine digit number B in col. 17-25. 

You are to punch out three cards with the following format: 

A and B as above 

A+B with low order digit in col. 40 
A.B with low order digit in col. 60 

There are no flags on the input cards, and there should be no flags on the 
output cards. 
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LAB EXERCISE 5 



5.1 Type a message to turn on console switch 2 and then halt. 
If the switch is not set properly repeat the message and 
halt. Continue this process until the switch is on. 



5.2 Two flagged 4 digit integers have their units position in 
7005, and 7010 respectively. If the n-th integer is 



less than 2222 
equal to 2222 
greater than 2222 



put a 




in 7011 t n 



5.3 35 flagged 4 digit integers have their units position in 

7004, 7008, ... , 7000 + 4n, 7140. Tabulate the type- 

writer and type the number of negative numbers in the list. 



5.4 Three 5 digit integers are located in 7005, 7010, and 7015 
respectively; arrange them in ascending order in locations 
7020, 7025, 7030. 
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A 519 Simulator 
R. C. Steinbach (5145) 



Introduction 

Card reproduction on the 1620 is not new; the most straight forward 
approach is to insert 371111100500 391111100400 4900000 R/S. The problem 
becomes slightly more complex if information is to be deleted, the columns 
permuted, sequence numbers added, and/or information gang punched into the 
cards. This paper describes one method of handling these other possibili- 
ties. 

Method 

During the first phase, the simulator sets up a table of source 
addresses. The first entry in the table is the address of the two digit 
field to be placed in column one of the output deck; the second entry 
addresses the source field for column two; etc. During the second phase, 
a card is read into an input buffer, 80 two-digit fields are transmitted 
from the appropriate source (the source table is addressed indirectly) 
sequentially into an output buffer. A card is punched and the next card 
read, and so on. 

Format Cards 

The deck to be reproduced is preceded by three format cards called 
INPUT, OUTPUT, and EMIT. All three cards must be there, however, the INPUT 
and EMIT cards may be blank. The input format card identifies the source of 
characters from the deck to be reproduced; the output format card identifies 
the destination of all characters to be punched in the new deck; the emit 
format card contains characters to be gang punched into all cards of the 
new deck. 

The simulator produces the source table by scanning the output format 
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card. All columns that are blank in the output format card will be blank 
in the new, or output, deck. A field of l's in the OUTPUT card indicates 
that the source is the same field on the old, or input, deck. A field of 2 f s 
(up to 5) indicates a sequence number field on the output deck. Note that 
this requires the OUTPUT card to be scanned from right to left. A field 
of 3 f s indicates that characters are to be emitted from the corresponding 
columns of the EMIT card. If a field of any other character, e.g. AAA or ))))), 
is encountered on the OUTPUT card, then the INPUT card is searched for a 
corresponding field. The location of the field on the INPUT card determines 
the columns to be picked up in the old deck; the location of the field on the 
OUTPUT card determines the destination in the new deck. If the OUTPUT card 
contains a character other than the four special characters (blank, 1, 2, 3), 
that same character must appear on the input format card; furthermore, the 
field length defined must be the same. If either of these conditions fail, 
"Format card mismatch" is typed and the program will then accept new format 
cards. Figure 1 shows an example of the three format cards. 

Anomalies 

Although it is not immediately obvious, the method chosen to set up the 
source table allows one field of the input deck to be placed in more than one 
field of the output deck. To accomplish this, a field indication on the INPUT 
card appears in several (non-adjacent) fields of the OUTPUT card. Two non- 
adjacent fields on the input card designated by the same non-special character 
will not be correctly interpreted. 

Sequence numbers (even of different length) may also be punched in several 
non-adjacent fields. 

Modifications 

Often, one wishes to change the emit characters whenever a master card is 
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detected. The variety of ways in which a master card may be indicated, and 
the number of possible reactions to a master card suggests one of the follow- 
ing manual solutions to the problem rather than a fully automated system. 

If there are just a few decks headed by master cards, the same INPUT 
and OUTPUT cards may be used with a different EMIT card. The Master card 
may be used for an EMIT card if the master card is not to be duplicated and 
the characters to be emitted are in the correct columns. 

If there are many master cards in a particular run, they may be detected 
using a compare or compare immediate after each card is read. A special 
routine is then added to the source deck to transmit characters from the 
Master card to the EMIT card image. The bulk of the routine can be instruc- 
tions of the form TF EMIT-2+2*ecn, IN-2+2*mcn where ecn stands for emit column 
number and men stands for master column number. With the detect routine and 
transmit routine added, the source deck is reassembled. 

Conclusions 

Any suggestions on ways to improve this program will be greatly appreci- 
ated. It will be submitted to the Users Group Library after these improve- 
ments are incorporated. 
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SIMULTANEOUS LINEAR EQUATIONS 
WITH COMPLEX COEFFICIENTS 

N* Kuffel 



INTRODUCTION 

This program solves simultaneous linear aquations with complex coefficient! 
resulting in complex roots* It was originally developed to solve large 
systems and has applications in mechanical and electrical engineering 
problems* 

Of the numerous programs available for matrix inversion and simultaneous 
equations* very few take into account the under-and-overflov problems 
encountered on large matrix systems* There are no programs published at 
the present time for the 1620 for solutions of complex simultaneous equa- 
tions* and very few available even for other machines* Several programs 
are available on the 1620 for real systems* 

This program will solve up to 20 simultaneous linear equations with complex 
coefficients* Two forms of output results* A+jB and Ke^ , are available 
for either a specified limited number of unknowns, or for all unknowns up 
to 20* The program is written in Fortran with Format and requires 1*0 K 
memory* 

GENERAL 

Given a system of N simultaneous linear equations* in N unknowns* with 
complex (or real) coefficients, the program solves for the desired number 
of unknowns in terms of complex numbers. In certain situations, only a 
few of numerous unknowns are needed* Those desired can be rearranged to 
appear first in the equations* By specifying the number desired* only 
that number will be solved for. saving considerable computer time in the 
case of large systems* 
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Those equations to be solved are set in determinants of the form: 

|Z| ■ ja| +j |b| where a and b are the coefficients. 

The application of Cramers' Rule gives us: 

y . w *j m . -i ' b ' 

|Z| |«| +3 |b| |a| -J |b| 



- ( H lei * M HI) O (lal HI - M lei) 

where Z is the determinant of the coefficients and eu is the same determinant 
with the coefficients of the desired unknown replaced by the constant terms. 

All determinants are evaluated by the triangular method, in which all elements 
to one side of the leading diagonal are computed to be zero. The determinant 
is equal to the product of the elements in the leading diagonal of the trian- 
gular determinant. This method of evaluation is preferable to that of expansion 
in terms of minors or the pivotal method because of the storage and time problem 
involved in the large complex systems. 

Previous programs have made it necessary to do a manual rearrangement of data 
when a zero element is encountered on the diagonal, resulting either from the 
original coefficients or from subsequent computations. This program will check 
elements in the same column of the remaining rows of the determinant for a 
non-zero element. If such a value is found, a row interchange is performed, 
changing also the sign of the determinant. If no non-zero element is found 
we have the case of a sero determinant. If this occurs for the coefficient 
determinant, a message is typed out am* a different method of solution must 
be found for this case of a non singular solution. A zero numerator deter- 
minant evaluates an unknown equal to zero, which is the correct result. 

Over and underflow problems are quite common in matrix problems when doing 
accumulative operations, such as computing the product of the diagonal 
elements of the determinant. A scaling procedure has eliminated such diffi- 
culties in this program. Before multiplying, each diagonal element is scaled 
to the range between .1 and 1.0, storing an accumulative characteristic 
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(or power of ten) for the determinant, which is output with the product 
and then applied in the final division of determinants so that the end 
results have the correct magnitude* 

Especially in the case of large systems, this program has been found to 
be as efficient even for real systems as most existing programs, particu- 
larly because of the row interchange and scaling procedures. 

As many as 20 equations in 20 unknowns may be handled by this program on 
a I4OK machine, which is minimum core for the program* The largest system 
run up to this time has been 18 equations, but no difficulties can be 
foreseen on any larger problems because of the scaling procedure* 

The results are indicated in two forms* The actual outputs are the real 
and imaginary parts of the solution, as well as the magnitude and phase 
angle* These will give results in the forms: 

J* 

A ♦ jB and Ke J where 

A • real part 

B ■ imaginary part 

K - magnitude 

i|r * phase angle in degrees 

K -|/a Z + B 2 f - tan" 1 | 

SUMMARY 

This program has been used numerous times for several months now, on systems 
from 3 equations to 18, both partial and complete solutions* Execution times 
on the 1620 MOD II have runs 

3rd and bth order - 1 min* 
l£th order • 20 min* 

17th order - 29 min. 

It should be noted that these times are dependent on the original set up 
of the coefficients and how many row interchanges are necessary* 



o 
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The progra* is -itte, * with m-t and .... - ABSOIMTE^VAUJE 

*u4 ^ v- msUt chanced in the source program if the 

!! 4. -wu .toraee to recompile with a starting position of 8300 fop other 

rJXr.tr.. xt «l * . — - r . r 

»od, 8 to fit other nHd. and equipment. Ho .ense switches are used. 
S«pl. input and output data follow in Append!, A and a program listing is 
in Appendix B. 
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APPENDIX A 



Sample input and output data listing follow. Input data follows the same 
sequence for all programs although Case 1 will be the only one described* 
rd 

Case 1-3 order complex system, complete solution 
Input 

l 8 ^ Card - NSOL « 3 (number of solutions desired) - 13 format 
Note statement 8 £>00 and 101 In program listing (Appendix B) 

2 Card - N ■ 3 (order of system) - 13 format 

NX N (9) Cards - AR and AI (real and imaginary parts of the 
coefficients) - both values are on the same card in Elij.8 
format and are entered row-wise. 
Note statement 100 in Appendix B. 

N(3) Cards - FR and FI (real and imaginary parts of the constants) 
both values on the same card as were the coefficients* 

Output 

Real and imaginary parts of the input coefficients 
Real and imaginary parts of the input constants 
Real and imaginary diagonal products, value of the 
coefficient determinant, scale factors for the products 
and the determinant, phase angle and magnitude. 
Real and imaginary diagonal products, value of the determinant 
and scale factors for NS0L(3) solutions which include real and 
imaginary parti (A and B), phase angle (^) and magnitude (K)« 
th 

Case 2-1* order real system, complete solution 
Case 3 - h order real system, partial solution 
Case it - order real system, sero determinant 
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Sample Case 1 
Input 



+.20 110 300E+04+.13140000E+03 

2055 0000E+04-. 22 700000 E+01 
+.0O0000O0E -99 +.00000000 E-99 

2055 0000E +04-. 22 700000 E+01 
+ . 16 10 298 OE +0 5 + .2 17470 00 E + 3 

14170000E+0 5-. 18 500000 E+0 3 
+.0OOOO0OOE -99 +.000000 00 E-99 

14170000E+0 5-.18 500000E+0 3 
+.22498000E+0 5+. 13 5000 00 E+03 
+ . 00000000c -99 + . 00000000 E-99 
+.0OO00000E-99+. 00000000 E-99 
+.0 3300000E +04+. 00000000 E-99 
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Sample Case 
Output 



SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 
WITH COMPLEX COEFFICIENTS 
PROG. 223-63 

ORDER 3 



REAL 

•20110300E+G4 
-.20550000E+04 

•O0O0O000E-99 
-.20550000E+04 

•16102980E+05 

14170000E+05 
♦00000000E-99 

14170000E+05 
.22498000E+05 

CONSTANTS 
.00000000E-99 
.00000000E-99 
.83300000E+G4 



IMAGINARY 

. 13140000E + 03 
-.22700000E+01 

.00000000E-99 
-.22700000E+01 

.2174700GE+03 
18500000E+03 

.00OOO0O0E-99 
-. 1350G000E + 03 

. 185000QOE + 03 



•00000000E-99 
•00000000E-99 
•OOQ0OO0OE-99 



REAL PROD* I MAG PROD. DETERMINANT 

•22940795E-01 .2551 5200E-02 .53279032 F-03 

MULTIPLY REAL AND IMAGINARY PRODUCTS BY 1.0F 13 
MULTIPLY DETERMINANT 3Y l.OE 26 

PHASE ANGLE = . 63464644E+0 1DFGREES 
MAGNITUDE = . 2 308 22 5 1 E-0 1 * l.OE 13 



REAL PROD. 1/iAG PROD. DETERMINANT 

.24256068E-01 . 343479 95 E-03 . 5 8847480E-C3 1 

MULTIPLY REAL AND IMAGINARY PRODUCTS BY l.OE 13 
MULTIPLY DETERMINANT BY l.OE 26 

REAL PROD. I MAG PROD. DETERMINANT 

.2 37 17 16 3E -01 . 18 609040 E-02 . 5 65 96678E-03 2 

MULTIPLY REAL AND IMAGINARY PRODUCTS dY l.OF 13 
MULTIPLY DETERMINANT BY l.OE 26 

REAL PROD. I MAG PROD. DETERMINANT 

.23433940E-01 . 21 19 1024E-02 .55364013E-03 3 

MULTIPLY REAL AMD IMAGINARY PRODUCTS BY 1.0- 13 
MULTIPLY DETERMINANT BY l.OE 26 



SOLUTIONS OF THE SIMULTANEOUS LINEAR EQUATIONS 
ORDER 3 

REAL IMAGINARY PHASE ANGLE 



MAGNITUD 
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♦10460585l+01 -.101 3722 1E-00 
. 10301213E+01 -. 334 5443 1E-01 
. 1 C 1 9 1 6 2 ?> c +0 1 -.20980622 E- 1 



-.55351769E+01 . 1 05 095 KB t +01 

-.18600954E+01 . 10306643E+01 

1 1 79331 7E + 01 . .10 193 7 86b + 01 
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Sample Case 2 
Input 



4 
4 

+.30000000E +01 +.00000000 £-99 
+.2000 0000 E+0 1+. 00000000 E-9 9 
100000 00 E+0 !+• 00000000 t- 99 
+. 10000000 E+0 1+. 00000000 E-99 
+♦ 1O0OO0O0E+O1+.0000O000E-99 
-. 10000000E +01+. 00000000 E-99 
-. 20000000 E+0 1+. 00000000 E~ 99 
+. 40000000 E +01+. 00000000 E-99 
+. 2000 0000 E +01 +.000000 00 E-99 
+.30000000E+0 1+. 00000000 t-99 
+. 10000000E+01+. 00000000 E-99 
- . 2 E + 1 + . E - 9 9 
+.5 00000O0E+01+.O00O00 00E-99 
-.2000 000 Ob +01 +.00000000 E-9 9 
+. 30000000 E+0 1+. 000000 00 E-99 
+.20000000E+0 1+ .00000000 E-99 
+. 10000000E+01+. 00000000 E-99 
+.30000000E+0 1+. 00000 000 E-99 
-.20 000000 E +01+. 00000000 E-99 
+.0000000 E-99 +.00000000 E-99 
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Sample Case 2 
Output 



SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 
WITH COMPLEX COEFFICIENTS 
PROG. 223-63 



ORDER 



REAL 
•300OO0O0E+0 1 
•20000G00E+01 
10000000E+0 1 
. lOOOOOOOE+Ol 
. 1OOOO000E+0 1 
-. 10000000E+01 
-.20G00000E+C 1 
.40000000E+01 
.20000000E+0 1 
. 30000000E+01 
. 10000000b+0 1 
-. 2O0O0000E+01 
.50000000E+0 1 
200O00O0E+O1 
.3000G000E+0 1 
. 2O0O0O00E+01 



I MAGI NARY 
.OOOO00OOE-99 
.0O0O0O00E-99 
.00000000E-99 
.00000000E-99 
.O0OO0OOOE-99 
.00000000 E-99 
.00000000 E-99 
.00000000E-99 
.00000000 E-99 
.00000000 E-99 
.00000000 E-99 
.00000000E-99 
.00000000 E-99 
.000 0000 E-99 
.00000000 E- ^9 
.00000000 E-99 



CONSTANTS 
. 10000000E+0 1 
. 30000000E+01 

-. 20000000E+0 1 
.000000 00 E-99 



REAL PROD. 
.49999993E-0 2 



♦O0OO00OOE-99 
.00000000 E-99 
.00000000 E-99 
.00000000E-99 



DETFRM INAMT 
.24999993E-04 







I MAG PROD. 
.n0000000E-99 
MULTIPLY REAL AND IMAGINARY PRODUCTS BY l.OE 
MULTIPLY DETERMINANT BY l.OE 8 



PHASE ANGLE = .00000000E-99DEGREES 
MAGNITUDE = .49999992E-02 * l.OE 4 



REAL PROD. I MAG P ROD. DETERMINANT 

19000000 E-00 .00000000 E-99 . 36 1 OOOOOE-0 1 

MULTIPLY REAL AND IMAGINARY PRODUCTS BY 
MULTIPLY DETERMINANT BY l.OE 4 

REAL PROD. I MA G PROD. DETERMINANT 

28999992E-0 2 . 00000000 b-99 . 84099953E-05 

MULTIPLY REAL AND IMAGINARY PRODUCTS BY 
MULTIPLY DETERMINANT BY l.OE 8 



REAL PROD. 
.50999986E-02 

MULTIPLY 
MULTIPLY 



I MAG PROD • DETERMINANT 
000 00000 E-99 . 26 00998 5 E-04 

PEAL AND IMAGINARY PRODUCTS SY 
DETERMINANT BY l.OE 3 



1 

1 .OE 



2 

l.OE 



3 

l.OE 



4 



5 
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REAL PRCD. I MAG PROD. DETERMINANT 

• 4-8999998E-02 •OOOOOOOO E-99 .24009998E-04 4 

MULTIPLY REAL AND IMAGINARY PRODUCTS BY l.OF 
MULTIPLY DETERMINANT BY l.OE -6 



SOLUTIONS OF THE SIMULTANEOUS LINEAR EQUATIONS 
ORDER 4 



REAL 



IMAGINARY 



PHASE ANGLE 



MAGNITUDE 



• 38000004-E-00 
•57999987E-00 
.10 199998E+01 
•98000006E-0? 



•OOOOOOOO E-99 
.00000000E-99 
•00O000O0E-99 
•00000000E-99 



•00000000E-99 
•00O0O00OE-99 
•00000000E-99 
•00000000E-99 



.38000003E-00 
•57999986E-00 
. 10199997E+01 
.9P0^000dE-07 
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Sample Case 3 
Input 



4 
4 

+. 30 OOOOOOE +01 +.00000000 E-99 
+ . 20000000E +0 1 +.00000000 E-99 
-. 10000000E+01+.OOOOQOOOE-99 
+. 1 0000 OOOE +0 1+. 00 000000 E-99 
+. 10000000E+01+.000000OOE-99 
-. 10000000E+0 1+.00000O00E-99 
-. 20 000000E +01 +.00000000 E-99 
+.40000000^+0 1+. 00000000 E-99 
+. 20 000O00E +01 +.00000000 E-99 
+. 3 00 0000 OE+0 1+ .00000000 E-99 
+ . 1O000O0OE+01 + .OQ00OO0OE-99 

?0000000E+0 1+. 00000000 E-99 
+ . 5 OOOOOOE +01 + .000 00000 E-9<5 
-. 2 0000000E +0 1+. 00000000 E-99 
+ . 30 000000E +01 + .00000000 E-99 
+ . 20000000E+0 1+ .00000000 E-99 
+ . 10000000E+01 + .00000000E-99 
+ . 3 OOOOOOOE+O 1 + .00000000 E-99 

20000'OOOE +01 + .00000000 E-99, 
+.00000000E -99+. 00000000 £-99 
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Sample Case 
Output 



SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 
WITH COMPLEX COEFFICIENTS 
PROG. 223-63 



ORDER 4 



Kc AL 




1 1"! A b 1 !\ A K Y 




"X n fi n C\ r< o ( \ p 
• 3UI/UUUUUC 


— r \ 


n r\ n r\ r\ Ci n n f- — 

»UUu U U U U U C 




tzUUUUUaUL 


U c. 




Q Q 


-. 10000000E 


-0 2 


.00000000 E- 


99 


♦ 10000000E 


-02 


.00000000 E- 


99 






- o o o n o o o o f — 


qq 


— i on no nnnp 


— f) '? 

\J c 


onp nnnnn F— 




~ - poopoooof 


— ? 


-.ooonoooo r— 

• U V U U U U U ' v L_ 


QQ 

j j 


• *-) , UUUUUUu c 




nnnnnpnn F— 


99 


• 2 U U U U U r 


— U C- 


»UUU U U I'UU t — 


9 V 


. 30 000 00 E 


-02 


.000 000 00 E- 


99 


.100Q0000E 


-0 2 


. 00000000 E- 


99 


-.2G000000E 


-02 


♦00000000 E- 


99 


•50000000E 


-0 2 


•00000000E- 


99 


-.20000000E 


-0 2 


•00000000E- 


99 


•30000000E 


-0 2 


•00000000E- 


99 


•20000000E 


-02 


.O0O000O0E- 


oo 


CONSTANTS 








. 10000000b 


-0 2 


.OOOCOoOOE- 


99 


. 30000000E 


-02 


.00000000 F- 


99 


-.20000000E 


-0 2 


.00000000 b- 


99 


.00000000E 


-99 


.000 00C0 0E- 


99 



REAL PROD. I MAG- PKDD. DETERMINANT 

.49999993E-0 2 .00000000 F-99 . 2 4999993 E-04 

MULTIPLY REAL AND IMAGINARY PRODUCTS BY I.Ol- 
MULTIPLY DETER MI MA NT- BY 1.0E -16 

PHASE ANGLE = . 00000000 E-99D E GRE E S 
MAGNITUDE = • 49999992 £-02 * 1.0E -8 



REAL PROD. I MAG PROD. DETERMINANT 

•19000000E-02 •00000000E-99 . 3 6 1 00000E-05 1 

MULTIPLY REAL AND IMAGINARY PRODUCTS BY 1.0E -8 
MULTIPLY DETERMINANT oY 1.0E -16 

REAL PROD. I MAG PROD. DETERMINANT 

-.28999992E-02 . 00000000 E-99 . 84099953 E-05 .2 

MULTIPLY REAL Ai'NjD IMAGINARY PRODUCTS BY 1.0E -8 
MULTIPLY. DETERMINANT BY 1.0E -16 



SOLUTIONS OF THE SIMULTANEOUS LINEAR EQUATIONS 



ORDER 4 
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REAL 



I MA GI NARY PHASE ANGLE MAGNITUDE 



.38000004E-00 -.00000000E-99 . 0O0OO00OE-99 . 33000003E-00 

-.57999987E-00 -.0OOUO00OE-99 .0O0O00O0E-99 .:>79999ci6E-00 
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Sample Case 
Input 



3 

3 

+■• 10000000 E +01+. 00000000 E-99 
+♦ 20000000E +01+. 00000000 E-99 
+ .20000000E +01 + . 000,000 00 E-99 
+.30000000E +01+. 00000000 E-99 
+.10000000E +01 + . 00/500000 E-99 
+ . 100000O0E +01+. 00000000 E-99 
+. 20000000 E +01+. 00000000 E-99 
+.20000000E +01+. 00000000 E-99 
+.20000000E +01+. 00000000 E-99 
+. 10O00000E+O2+.0O00000OE-99 
+. 50000000 E +01+. 00000000 E-99 
+. 15 000000 E +0 2+. 00000000 E-99 
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Sample Case h 
Output 



ORDER 



SOLUTION OF 
WITH 



SIMULTANEOUS LINEAR EQUATIONS 
COMPLEX COEFFICIENTS 
PROG. 223-63 



REAL 
. 10000000E+01 
•2OO0OO0OE+O1 
.2000000OE+O1 
. 3O00OOOGE+O1 

• 10000000E+0 1 

• 1O00OO0OE + O1 
♦20000000E+01 
.20000000E+01 
•20000000E+0 1 

CONSTANTS 
. 100000O0E+02 
•50OU0000E+0 1 
. 150000C0E+02 



IMAGINARY 
•00000000E-99 
•U0000000E-99 
•O00000OOE-99 
. OOOOOOOO E-99 
•00000000E-99 
•OO000000E-99 
.00000000 E-99 
•OOO00000E-99 
•OOOOOOOO E-99 



• O000O000E-99 

• OOOOOOOO E-99 

• OOOOOOOO E-99 



ZERO DETERMINANT - USE DIFFERENT METHOD OF SOL UT I Or- 
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SOURCE PROGRAM 

07000 C SOLUTION) OF SIMULTANEOUS LINEAR EQUATIONS WITH COMPLEX 

COEFFICIENTS USING CRAMERS RULE 
PROG NO 223-63 

DETERMINANTS EVALUATED BY THE TRIANGULAR METHOD 
ELEMENTS ENTERED ROW-WISE 



07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 C 
07000 
07000 
07000 
07048 

07072 
07096 
07118 
07142 
07296 
07320 
07552 
07576 

07712 C 



AR-REAL PART OF DETERMINANT 

A I -I MAG I NARY P ART OF DETERMINANT 

REAL AND IMAGINARY PARTS OF A COEFFICIENT ENTERED ON SAME CARD 

FR-REAL PART OF CONSTANT TERM 

F I -IMAGINARY PART OF CONSTANT TERM 

N-ORDER OF THE SYSTEM 

NSOL - NUMBER OF SOLUTIONS DESIRED ( EQUAL TO OR LESS THAN N) 

DIMENSION AR (20 ,20 ) , AI ( 20,20) , FR< 20) ,F I (20 ) , WR( 20, 20 ) , v!l (20, 20) 

DIMENSION XR(20), XK20) 

CONV = 180. /3. 14159265 
500 READ 101, NSOL 

READ 101, N 
101 FORMAT (13) 

PUNCH 104 

104 FORMAT ( //l 5X41HS0LUTI ON OF SIMULTANEOUS LINEAR EQUATIONS) 
PUNCH 105 

105 FORMAT (22X, 25HWITH COMPLEX CUE FF IC I ENTS/29X 12HPRQG. 223-63/) 
PUNCH 119i N 

119 FORM AT ( 5H0RDER,I 3//5X,4HREAL, 1 1 X , 9H I MAG INA RY ) 
INPUT AMD PUNCH MATRIX 
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07712 
07724 
07736 
07892 
07920 
08076 C 
08076 
08232 
08388 
08460 
08484 
08532 C 
08532 
08544 
08628 
08748 
08784 
08832 
08868 C 
08868 
08880 
089 16 
08964 
09300 
09356 
09424 



DO 1 I = If N 
DO 1 J = If N 

READ 100 , AR ( I f J ) f A I ( I , J ) 
100 FORMAT (E14.8» E14.8) 

PUNCH 116, AR(I,J), AKIfJ) 

SET UP 'WORKING MATRIX 
WR(IfJ) = AR(I»J) 
W I ( I f J ) - A I ( I f J ) 

1 CONTINUE 
PUNCH 10 3 

103 FORMAT ( /9HC0NSTANTS ) 

INPUT AND PUNCH CONSTANTS 

DO 2 I = If N 

READ 100 , FR ( I ) f Fill) 

2 PUNCH 116, FR( I ) f Fid) 
M N = 

LIW = N-l 
5 SIGN = 1.0 

DIAGONALIZATTON UF UfcTtRM-INANT 

DO 23 I = lfLlM 
NUM = I 
L = 1 + 1 

18 DEN = WR(NUMtI)*WR(MUh,I)+WI(NUM, 
IF(DEN) 14, 15, 14 

14 I F ( NUM -I ) 914, 914, 24 

15 NUN = NUtf+1 
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09472 

09540 

09596 

09620 

09644 

09788 

09836 

09848 

09944 

10040 

10196 

10352 

10448 

10580 C 

10580 

10628 

10640 

10736 

10832 

10844 

11072 

11288 

11660 

12020 

12128 C 

12128 



IF (NUM-N) 18, 18, 53 
53 IF(MN) 4, 4, 5 
4 PUNCH 110 
PR INT 110 

U0 FORMAT! //42HZER0 DETERMINANT - USE DIFFERENT MET HOD 0F9H 

STOP 

24 DO 16 J = 1, m 
WRT = WR( I , J) 
WIT = WI (I , J) 
WR(I,J) = WR(NUM,J) 
WI (I» J) = WI { NUf-i, J } 
WR(MUM,J) = K'RT 
16 WI (NUMt J) = WIT 

CHANGE SIGN OF DETERMINANT IF ROWS ARE INTERCHANGED 
SIGN = -SIGN 
914 DO 23 J = L, N 
WRT = WR( J, I ) 
WIT = WI ( J, I ) 
DO 23 K = I, N 

XI = WRT*WR(I f K)-WI(I f K)*WIT 
X2 = WR( I , K)*WIT+WI ( I ,K)*WRT 

WR(J,K) = WR(J f K)-(WR(I,I)*xi + WI(I f l)*x2)/0EN 

WKJ.K) = WI(J. t K)-(WR(I f I)*X2-HI(I t l)*xi)/DEN 

23 CONTINUE 

ADJUST MAGNITUDE TO AVOID OVER OR UNDERFLOW 
5 IS = 



SOLUT ION ) 



8 4 
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12164 

12176 

12272 

12328 

12396 

12464 

12500 

12548 

12556 

12592 

12640 

12976 
12984 
13020 C 
13020 
13032 
13080 
13428 
13764 
13860 
13992 
14040 
14088 
O 14184 
14240 



DO 200 1=1? N 
220 ABWR = ABSF ( WR ( I t I ) > 

IF(ABWR) 200, 200, 213 

213 IFtABWR-l.) 211, 200, 210 

211 IF(ABWR-.l) 212, 200, 200 

212 TTEN = 10# 
IS = IS-1 
GU TO 214 

210 TTEN = .1 
IS = IS+1 

214 WR(I,I) * WR(I,I)*TTEN 
WI ( I , I) = W I ( I , I )*TTEN 
GO TO 220 

200 CONTINUE 

EVALUTION OF DETERMINANT TAKING PRODUCT OF DIAGONAL ELEMENTS 
00 7 I = 2 t N 
J = 1-1 

PRODR =<WRlJ, J)*WR ( I 1 1 )-WI ( J, J)*WI ( 1,1)) 
PRODI =(WR( I ,1 )*WI ( J, J )+WI ( I , I )*WR( J , J ) ) 
WR(Ifl) = PRODR 
7 WKItl) = PRODI 
PRODR = PRODR*SIGN 
PRODI = PRODI*SIGN 
DET = PRODR*PRODR+PRODI*PRODI 
IF (DET). lilt 121, 111 
121 IF(MN) 4, 4, 111 
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14296 111 PUNCH 115 

14320 115 FORMAT (/2X, 10HREAL PROD., 7X, 10HIMAG PROD • 7X, 1 1HDETERMINANT ) 

14478 PUNCH 116, PRODR, PRODI, DET , MN 

14538 116 FORMAT (E14.8, 3X, E14.8, 3X, E14.8, 15) 

14602 ISD = IS+IS 

14650 PUNCH 117, IS 

14674 117 FORMAT ( 10X , 44HMUL T I PL Y REAL AND IMAGINARY PRODUCTS BY l.OE, 15) 

14818 PUNCH 118, ISD 

14842 118 FORMAT { 10X , 28HMULTI PLY DETERMINANT BY l.OE, 15) 

14954 IF(MN) 8, 9, 8 

15010 C DETERMINANT OF THE COEFFICIENTS IS SAVED FOR LATER COMPUTATIONS 

15010 9 BOT = DET ^ 

15046 ISZ = IS 

15082 PRDIZ = PRODI 

15118 PRDRZ = PRODR 

15154 PHID =ATANf^( PRODI /PRODR ) *CO.\<V 

15226 AM AG = SQRTF ( DET ) 

15262 PUNCH 109, PHID 

15286 109 FORMATl /13HPHASE ANGLE =, E14.8, 7HDEGREES ) 

15368 PUNCH 125, A MAG , IS 

15404 125 FORMAT ( 1 1HMAGN I TUD E =, E14.8, 7H * l.OE, 15/) 

15486 C SET UP DETERMINANTS WITH COF.FF ICIENTS. OF UNKNOWNS REPLACED BY 

15486 C KNOWN TERMS 

15486 DO 10 MN = 1, NSOL 

15498 DO 11 I = 1, N 

15510 DO 11 J = 1, N 
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15522 
15678 
15906 
15918 
16038 
16194 
162 02 C 
16202 C 
16202 
16298 
16430 
16574 
16610 
1663 4 
16766 



WR(I,J) = AR(I,J) 

11 W I ( I , J ) = AI ( I , J) 
DO 12 J = If N 
WR(JtMN) = FR(J) 

12 WI ( J,MN) = F I ( J ) 
GO TO 5 

SOLUTION OF THE UNKNOWNS 

POWER OF 10 READJUSTS TO CORRECT MAGNITUDE 
8 VAL = ( 10.**(IS-ISZ) )/BOT 

XR(hN) = (PRGDR*PRDRZ+PRODI*PRUIZ)*VAL 
XI (MN) = ( PRDRZ*PRODI-PRODR*PRDIZ)*VAL 
10 CONTINUE 
PUNCH 106 

106 FORMAT ( //46HS0LUT I GNS OF THE SIMULTANEOUS LINEAR EQUATIONS/) 
PUNCH 3t N 



o 



16790 3 FORM AT ( 5H0RDE R I 4// 5X4HR E A L i 1 X9H I MAG I N ARY7X 1 1 HP HASE ANGLE7X9H MAGNITUDE/) 

17026 DO 13 I = 1, N.SUL 

17038 IF(XR(I)) 122, 123, 122 

17118 123 PHID = 90. 

17154 GO TO 124 

17162 122 PHID = AT ANF ( X I ( I ) / XR ( I ) ) *CONV 

17282 124 AM AG = SQRTF ( XR ( I ) *XR ( I ) +X I ( I ) *X I ( I ) ) 

17486 PUNCH 120, XRU), XI'(I), PHID, AMAG 

17594 120 F0RMAT(E14.8, 3X , E14.8, 3X, £14. 8, 3X, E14.8) 

17670 13 CONTINUE 

17706 PRINT 900 

17730 900 FORMAT ( 3 1HP AUSF , PUSH START FOR NEXT CASE) g J' 
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17816 
17828 
17 836 

SYMBOL TABLE 



PAUSE 

GO TO 500 

END 



39999 SIN 
39989 SINF 
39979 COS 
39969 COSF 
39959 AT AN 
39949 ATANF 
39939 EXP 
39929 EXPF 
39919 LOG 
39909 LOGF 
39899 SQRT 
39889 SQRT F 
39879 ABSF 
39869 ABSFF 
39859 AR 35869 
35859 AI 31869 
31859 FR 31669 
31659 FI 31469 
31459 WR 27469 
27459 WI 23469 
23459 XR 23269 
23259 XI 23069 
23059 CONV 
23049 18000000+03 
23039 31415926+01 
23029 000 
23019 #0500 
23009 #0101 
22999 #0101 
22£89 NSOL 
22979 N 
22969 #0104 
22959 #0104 
22949 #0105 
22939 #0105 
22929 #0119 
22919 #0119 
22909 #0001 
22899 I 
22889 J 
22879 #0100 
22869 #0100 
22859 #0116 
22849 #0116 
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22839 -0103 
22829 *0103 
22819 #0002 
22809 MN 
22799 0000 
22789 LIN 
22779 0001 
22769 #0050 
22759 SIGN 
22749 10000000+01 
22739 #0023 
22729 NUM 
22719 L 
22709 #0018 
22699 DEN 
22689 001 
22679 #0014 
22 669 #0015 
22659 #0914 
22649 -0024 
22639 #0053 
22629 #0004 
22619 #0005 
22609 *0110 
22 599 #0110 
22589 #0016 
22579 WRT 
22569 WIT 
22559 K 
22549 XI 
22539 X2 
22529 002 
22519 IS 
22509 #0200 
22499 #0220 
22489 ABWR 
22479 #0213 
22469 #0211 
22459 *0210 
22449 10000000+00 
22439 #0212 
22429 TT EM 
22419 10000000+02 
22409 #0214 
22399 #0007 
22389 PRUDR 
22379 PRODI 
22369 DET 
22359 #0111 
22349 #0121 
22339 #0115 
22329 #0115 
22319 ISD 
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22309 
22299 
22289 
22279 
22269 
22259 
22249 
22239 
22229 
22219 
22209 
22199 
22189 
22179 
22169 
22159 
22149 
22139 
22129 
22119 
22109 
22099 
22089 
22079 
22069 
22059 
22049 
22039 
22029 
22019 
22009 
21999 
21989 



#0117 

#0117 

#0118 

#0118 

#0008 

#0009 

BOT 

ISZ 

PRDIZ 

PRDRZ 

PHID 

AM AG 

#0109 

#0109 

#0125 

#0125 

#0010 

#0011 

#0012 

VAL 

#0106 

#0106 

#0003 

#0003 

#0013 

#0122 

#012 3 

90000000+02 
#0124 
#0120 
#0120 
#09 00 
#0900 
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We will focus our attention on the spectral analysis 
of finite length recordings of a physical process which 
is assumed to be random in nature. For deterministic 



functions such as periodic and aperiodic functions a 
harmonic analysis is usually carried out by Fourier 
series analysis and by Fourier integral analysis, 



respectively. The discrete line spectrum for a periodic 
function and the continuous spectrum for the aperiodic 
function may be determined analytically because these 
deterministic functions are "known for all values of 



time". Random series are a class of functions which are 



not deterministic and do not lend themselves to the same 



harmonic analysis techniques used for deterministic 



functions; that is, statistical methods must be used. 



The Tukey technique, which is used here, is applicable 



to random time series which very closely approximate a 



-2- 



stationary random ergodic process. This computational 



procedure yields the variance spectrum of a time series. 



Other names for the resultant computation are power density 



spectrum, second -degree spectrum, or quadratic spectrum; 



^11 of which refer to the distribution of variance as a 



function of frequency. 



One begins with a recording of a physical process 



which is assumed to represent a sample of a random process. 



The record must be free of "pure tone" or periodic 



components and transients. After sampling the record 



at equi-spaced intervals the linear trends and average 



should be removed. 



Briefly, the Tukey method consists of computation 



of statistical estimates of the spectrum of a finite 



discrete time series by a numerical approximation of the 



Wiener~Kh in chine equations. The procedure involves two 
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steps. First, one computes a set of mean lagged products 



of the time series. Another .'name for the set of mean 



lagged products is the autocorrelation function. The 



raw power spectral estimates are computed by application 



of a discrete finite Fourier cosine transform to the 



autocorrelation function. This transformation gives the 



desired frequency domain representation of the time series. 



Systematic statistical errors resulting from use of a 



finite amount of data appear in the raw power spectral 



estimates. The Tukey technique to obtain improved 



spectral estimates involves a smoothing or refining 



operation performed on the raw estimates. 



Slide 1 shows the Tukey equations. 



Slide 2 shows an example of a time series to which 



one might apply the Tukey analysis. 



Slide 3 shows the power density spectrum of the time 




series. Eighty percent confidence intervals are shown. 



Your attention is directed to the fact that the 



power density graph has an upper bound at a point marked 



fjsj and that no power estimates of higher freguency are 



plotted. This upper band set is known as the Nyguist 



freguency and is a function of the length of the sampling 



interval. A full discussion of sampling theory is 



beyond the scope of this presentation. However, a few 



brief remarks are in order. 



When a continuous function is sampled at egui-spaced 



intervals, the guestion should be asked: "How well will 



the discrete set of sampled values represent the original 



function?" A continuous function of time is completely 



determined by its values at egually spaced intervals 



provided that the continuous function contains no 



freguenci'es higher than, say, W cycles per second, and 
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the ordinates are given at points spaced 1/2 W seconds 
apart, the series extending for all time. This is a 
statement of the popularly referred to Shannon theorem. 
Under consideration here is an analysis which is to be 



based on sampled values obtained from continuous records 
which are not infinite in extent and are not band limited. 



Analysis based on finite amounts of data is common to 
statistical work. 



Of immediate concern is the selection of the sampling 
interval and the problem of aliasing. Consider two sine 
waves of equal amplitude, but different frequencies. 
(See Slide 4) 



Attention here is directed to a particular set of 
sine waves, diff erring in frequency, but having a common 
set of equally spaced sample values. Thus, given only 
the sampled values, a sine wave of a given frequency may 

90 



-6- 

be confused with a sine wave of higher frequency. 
Specifically, if a harmonic time function X(t) is 
sampled at equally spaced time intervals ^ t, then a 



frequency f N = ^ 



2*t 

called the Nyguist or folding frequency, exists such 
that the functions with frequencies 

f + nf N , for n = 0,2,4,..., 
are not distinguishable. 

Obviously, then, power contributed to a power spectrum 
at a given frequency f cannot be distinguished from 



powers contributed by frequencies f + n f . This translation 

~~ N 



of frequencies is known as aliasing. If the data 
actually contain power at frequencies greater than f N , 
this power will be "folded back" into the principal band 



which extends from O to f AT . Power that is folded back 

N 



results in a distortion of the true power spectrum in 
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the principal band. 



To make the effect of aliasing negligible it is 



necessary to select a sampling interval "small enough" 



to place the Nyguist frequency beyond all significant 



power contr ibuti ons . 



Associated with each spectral estimate there is a 



confidence interval which depends on the number of 



degrees of freedom in the computation. If one assumes 
the distribution of the data to be Gaussian and that the 



distribution of the variability in the spectral estimates 



follows the so called "chi-square" distribution, then 



the number of degrees of freedom may be computed 



by the convenient formula: 

k = — (N - tj- ) 

m J 

where k = number of degrees 

N = number of sampled values 
m = number of the maximum log 
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The confidence intervals are then computed using 



the number of degrees of freedom. As the number of 



degrees of freedom is increased the confidence intervals 



decrease in size and the computed estimates are more 



reliable. The number of degrees of freedom is, generally 



speaking, directly proportional to the number of data 



points and inversely proportional to the maximum 



number of lags. Acquisition of more data may be impossible 



or economically unfeasible and reducing the number of 



lags reduces the number of spectral points in the 



frequency range from zero to the Nyguist frequency. 



This brings us to the point of this paper. 



In many physical processes the power density decreases 



very rapidly with increasing frequency. Often at the 



higher frequencies the power density of the process under 



investigation is of the same order of magnitude as the 

9B 
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noise background. One must sample the processes often 



enough to avoid aliasing which would cause the noise to 



"fold back" into the frequency range of interest. Then 



one must take many lags and compute many power density 



estimates in order to have a good look at the lower 



frequencies. The consequences of this are large 



confidence intervals and much computation. 



In order to get around this problem one can operate 



on the original sampled data with a linear operator which 



is often called a numerical filter because of its 



mathematical resemblance to an electrical filter. Through 



use of filters one can change the frequency spectrum in 



a known and desireable way. In particular, a low-pass 



filter may be used to suppress the power near the 



Nyguist frequency and not significantly disturb the low 



frequency spectrum of a time series. 



t u (I 



-10- 

Slide 5 shows a power density spectrum computed 
before and after low-pass filtering. 

Slide 6 shows a comparison between the mathematical 
model of an electrical filter which operates on a 
continuous electrical signal and a linear operator 
(a numerical filter) which operates on a set of equi- 
spaced sample values of a time series. Note that the 
time domain representation of the electrical filter is 
characterized by W, the impulse response or memory of the 
filter. The time domain representation of the linear 
operator is simply an array of numbers. In the 
frequency domain both the electrical and numerical filters 
have representations called the frequency response. It 
can be shown that the numerical filter is simply a 
numerical approximation to the mathematical model of 
the electrical filter. 
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Slide 7 shows a plot of the coefficients of a 



low-pass filter. 



Slide 8 shows the frequency response of both a 



high-pass and a low-pass filter. 



After the time series has been operated on by say, 



a low-pass filter, the new time series may be resampled 



usina a larger sampling interval. That is, the set of 



sampled values may be decimated by taking every other 



value, every third value, etc. A new lower Nyguist 



frequency is associated with the power spectrum of the 



new time series since the new sampling interval is larger 



than the original one. The low-pass filter has suppressed 



the power at the higher frequencies and thus all but 



eliminated possible distortion caused by aliasing. Now 



the low frequency range may be investigated using fewer 



lags and thus keep the size of the confidence intervals small. 

1 «2 
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After the power spectrum has been computed the effect 
of the filter is removed using the frequency domain 
representation of the filter. 

In various applications high-pass, band-pass as 
well as low-pass filters have been used. Such computations 
are used in geophysical applications such as analysis of 
temporal variations in the earth's magnetic field and 
in biomedical applications such as analysis of EEG 
recordings . 

Slide 9 shows a macro-flow chart of a computer program, 

written in 1620 Fortran II, to accomplish the computations 

discussed in this presentation. 

Listings of the program are available from the author. 
(User 5130) . 
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FIGURE 9 



SINE WAVES OF HFFERENT * FREQUENCIES WITH THE 
SAME SET OF EQUALLY SPACED SAMPLE VALUES 




■ • ^ FIGURE -i-o 

EXAMPLE Of A POWER SPECTRUM BEFORE AND AFTEft 
LOW- PASS F<LT f ' ','1 
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FIGURE 13 

THE FILTER COEFFICIENTS OF THE LOW-PASS FILTER, 

CASE B OF TABLE I 
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FREQUENCY IN CYCLES PER KILOSECONO 
FIGURE 14 

THE FREQUENCY RESPONSE OF LOW-PASS 
AND HIGH-PASS FILTERS, TABLE I 
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ABSTRACT 



IBM 1620 ASSISTS STUDENT COUNSELORS AT JUNIOR COLLEGE 



The present study reports findings, based on the computed results 
from the IBM 1620, concerning the extent to which test scores on the col- 
lege freshman testing program - such as the ACE, SCAT, Co-operative 
English Tests - are able to predict academic success or failure in speci- 
fic junior college courses. Scattergrams have been created for those 
correlations of highest significance to assist counselors in estimating 
the incoming student's aptitude for college level study and in making a 
more accurate appraisal of the student's competence in a particular sub- 
ject area. 



Paul S. Chan 
May 15, 1964 



INTRODUCTION 



Unlike private colleges, the state colleges, or the state university, 
California's public junior colleges are required by law to admit any resi- 
dent of their districts who is a high school graduate or who is over 18 
and able to profit from instruction. 

Junior college administrators have interpreted this as meaning that 
they cannot deny admission to any applicant who has reached his 18th 
birthday, although virtually all now have retention policies which deny 
re«enrollment to students who fail to maintain a "satisfactory" grade 
point average. At one time, many administrators interpreted the legis- 
lative mandate to mean that they could not set any qualification for regis- 
tration in any class. An apparent change in legislative sentiment has 
combined with the realities of post-war enrollment pressures to cause 
most junior colleges to search for some equitable means of screening 
from classes (particularly from transfer classes) those students who 
have little opportunity to succeed. 

The freshman testing program has been an established practice at 
Riverside City College, a public junior college, for the past years. Al- 
though the counselors and admissions officers have been making exten- 
sive use of these tests to assist in laying out the academic path of many 
students, there have been no attempts until recently to make regular 
evaluations of the measuring instruments in use. Recently an IBM 1620 
was installed at the college. One of the first projects to use the system 
was ab attempt to determine the relationship between the test scores and 
the final grades in specific courses. It is anticipated that the results 
will improve placement of students in appropriate sections or courses, 
and selection of students for particular areas of concentration or pre- 
professional training. 



PURPOSE OF THE STUDY 



The battery of tests - ACE, SCAT and others - were administered to 
the in-coming new students for the dual purpose of counseling and place- 
ment. Since this investigation was the initial application, the present 
study was to demonstrate the validity of the battery for these purposes. 

Another aim of the study was to modify the battery to include only those 
tests best suited for the screening program. Excessive overlap of abili- 
ties measured by one test and those measured by another results in a 
waste of the student's time. Also, too great an array of scores for aca- 
demic counselors might prove more confusing than helpful. 

It was anticipated, too, that critical cut-off scores could be developed 
for each test, making it both practical and possible to advise the indivi- 
dual student, upon the basis of his score, just what his chances for suc- 
cess of failure in a specific course would be. 



DATA 

This study involved over 800 students who were enrolled in Psychology 
49» a freshman orientation course, and who had completed one or more of 
25. courses which the college wished to examine. 

There were fifteen predictors. These included: 

(1) three scores from the ACE (Quantitative, Linguistic, and Total) 

(2) the R.C.C. Arithmetic Competency Test of 40 items 

(3) three scores from the School and College Ability Tests 
(SCAT, Quantitative, Verbal, and Total) 

(4) six scores from the Cooperative English Tests, Form 1A-1960 
EDITION (Vocabulary, Level of Comprehension, Speed of Com- 
prehension, Total Reading, English Expression, and Total English) 

(5) overall high school grade point averages (to obtain this figure aca- 
demic subjects and others such as typing, speech, journalism, and 
music courses were used. Physical education, military science 
and driver education were not used. Shop courses were used where 
it was the student's high school major.) 

(6) academic grade point averages (to obtain this figure only solids 
such as English, foreign languages, math at the algebra and higher 
level, history and sciences, but not including general science, 
were used.) 

ACE and Arithmetic scores were easily obtained because they are a part 
of the placement battery of tests required of all new students. The SCAT 
and Cooperative English test scores were obtained by testing in the Psycho-' 
logy 49 classes and the two high school grade point averages were rather 
tediously obtained by employing an individual to compute the figures by hand. 

The courses included chiefly transfer courses with a few not-transler 
type courses and represented a cross-section of the major divisions with- 
in the college. 

DEPARTMENT 



Anthropology 
Art 

Biology 

Business 

Business 

Business 
Business 

Chemistry 

Chemistry 



i ib 



Course No. Descriptive Title 

2 Cultural Anthropology 

1A History and Appreciation of Art 

1 General Biology 

1A Principals of Accounting 

18A (hour) Business Law 

50A(51A) Elementary Accounting 

81A (50A) Business Mathematics 

1A Chemistry 

2 Introductory General Chemistry 



-4- 



DEPARTMENT Course No. 



Descriptive Title 



Electronics 


51 


English 


1A 


Geography- 


1 


History 


3 


History 


4A 


History 


/ A 

6A 


Math 


3A 


Music 


20 


Nursing 


1A 


Philosophy 


L A 

6A 


Physical Science 


1 


Physics 


2A 


Political Science 


3 


Psychology 


1A 


Sociology 


1 


Spanish 


1 



Electrical Fundamentals of Electronics 
English Composition 
Introductory Physical Geography- 
American History 
History of European Civilization 
Political and Social History of the US 
Analytic Geometry and Calculus 
History and Appreciation of Music 
Introduction to Nursing 
Introductory Philosophy 
Introduction to Physical Science 
General Physics 
American Political Institutions 
General Psychology 
Introduction to Sociology 
Elementary Spanish 



This battery of tests was originally selected to provide a basis for pre- 
dicting over-all scholastic success and success in specific subject-matter 
areas: The ACE for general scholarship, with its Q and L sub- scores for 
areas of primarily quantitative and verbal content respectively; the Co- 
operative English Test for English and other areas which require consider- 
able reading; the Mathematics Tests for placement in mathematics and al- 
lied physical science courses. 

Final grades of the students in each of the chosen freshman courses 
were compared with their scores on each of the tests, The courses were 
chosen from four areas: Language, Humanities, Social Sciences, and 
Natural Sciences. 
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METHOD OF ANALYSIS 



Results of the test battery were separated into ten test variables: 

(1) Three scores, the Q, L, and T, were derived from the ACE; 
(Z) Six scores from the Co-operative English Test; 

(3) Three scores, the V, Q, and T, from the SCAT; and 

(4) One score from Mathematics Placement Test. 

All the test scores and course grades were recorded in punched cards. 

An analysis program was written in Fortran. 

Coefficients of correlation were computed by the 1620 between scores 
on each of these tests and final grades in each course. To substantiate the 
validity of the results, besides the correlation coefficient, regression line 
coefficients, standard error of estimate, and standard error of regression 
coefficient b, the significance of r and of b were analyzed. A summary of 
equations for these calculations can be found in Appendix D. 
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CORRELATIONS BETWEEN TEST SCORES AND FINAL GRADES 



MATH 



ACE 



CO-OP ENGLISH 



SCAT 





cases 




Q 


L 


T 


1 


2 


3 


4 


5 


6 


















(Vo) 


(Le) 


(Sp) 


(Tr) 


(Exp) (Tot Eng) 


V 


Q 


T 


Language 






























Spanish 


33 


064 


044 


295 


297 


268 


326 


196 


233 


179 


232 


281 


161 


362" 


Humanities 






























Anthropology 


22 


131 


287 


397 


290 


089 


122 


018 


040 


228 


182 


478* 


049 


159 


Art 1A 


18 


48 8 * 


009 


491" 


362 


656" 


287 


100 


546" 


794* 


737* 


382 


388 


519" 


Music 20 


22 


463" 


233 


363 


363 


286 


458* 


404 


389 


404 


456* 


396 


330 


018 


Philosophy 6 A 


24 


415 


117 


196 


084 


596* 


457" 


051 


027 


154 


091 


065 


045 


501" 


average 




399 


159 


362 


275 


407 


441 


144 


251 


495 


367 


330 


203 


299 


Social Science 






























Geography 


18 


201 


169 


488" 


438 


525" 


612" 


688* 


675" 


336 


548" 


616* 


093 


242 


Natural Science 


■> 




























Biology 


40 


125 


436* 


326" 


433* 


433* 


334" 


449* 


379" 


547* 


536" 


391" 


375" 


375" 


Chemistry 1A 


55 


442* 


185 


165 


189 


160 


033 


048 


106 


146 


116 


208 


329" 


266" 


Chemistry 2 


30 


599* 


217 


406" 


386" 


416" 


316" 


421" 


473* 


551" 


598* 


411" 


405" 


124 


Electronics 


13 


101 


400 


348 


359 


439 


421 


405 


425 


501 


492 


392 


588" 


484 


Mathematics 3A 


23 


578* 


121 


245 


144 


360 


357 


324 


368 


305 


324 


413 


225 


126 


Nursing 1A 


25 


127 


209 


376 


144 


596* 


457" 


310 


503" 


294 


452" 


579* 


558* 


384" 


Physical Science 


21 


534" 


342 


306 


450" 


133 


582" 


449 


377 


528" 


538" 


065 


491 


328 


average 




278 


218 


241 


218 


326 


290 


260 


295 


320 


342 


275 


385 


232 



* Indicates .01 level of significance 
" . Indicates .05 level of significance 
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RESULTS 



The results of this study are reported in Appendix A, a table presenting 
the correlations between test results and course grades. Within each cur- 
ricular area, the average correlation with each test is also given. All 
the correlations coefficients in Appendix A at the .01 level of significance 
are marked with an asterisk and at the .05 level with double primes. 

Grades in some courses appear to correlate relatively well with scores 
on all the tests, while those in orther courses showed low correlations 
with most of the test scores, For example, biology has 12 out of 13 sub- 
scores with correlation at either .05 or .01 level of significance and chemis- 
try has ten out of 13, whereas Spanish and electronics ha^e only one out of 
13 at .05 level of significance. Some explanations may be offered for this 
phenomenon. One is that the differential magnitude of the correlations de- 
pends partly on the magnitude of the reliabilities of the grades in those cour- 
ses. Sectionings of a course will certainly be a factor to affect the magni- 
tude. Another factor is that grades in some courses are based on objective- 
type examinations, while in others on a more subjective basis. 

The relatively high predicitive power of the mathematics placement test 
in the Natural Science Division is more or less expected. However, an al- 
most equivalent result was found in the Q part of the SCAT Test. This is 
an indication that it may be possible to obtain the same predictive informa- 
tion from either of the tests, so duplication of student's effort can be avoided. 
It is quite unexpected that Spanish correlates with only the total score of the 
SCAT Test in the entire battery. Also, electronics correlates only at .05 
level of significance, with Q part of the SCAT Test. It is possible that this 
phenomenon is due to the fact that SCAT Tests involves not only the psycho- 
logical functions commonly measured by tests of verbal ability, but also a 
particular type of reasoning ability important in academic success which is 
not assessed by any other tests employed in the present battery. 

The two parts, speed of comprehension and total reading, of the Co- 
operative English Test show high correlation with geography. This can be 
explained because of the fact that the Social Studies courses normally re- 
quire more speed in reaidng and in comprehension. The significant cor- 
relation at .01 level between philosophy and the vocabulary part of the Co- 
operative English Test certainly implies the requirements to succeed in 
the course. 
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In general, the six farts of the Co-operative English Test correlate re- 
latively better than any of the three parts in the ACE Tests, with all the se- 
lected courses. This is illustrated by the r-values of .794 with Art, .458 
with Music, etc. 

The tendency was noted also for correlations to be relatively high or 
low with reference to separate courses rather than to the different tests. 
It was hypothesized that this phenomenon might be the result of difference 
among the courses in inter- section standardization reliability of grading, 
or use of objective examinations. 
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SUMMARY 



In this study of the value of a battery of aptitude and achievement tests 
for the prediction of junior college freshman grades, test scores were cor 
related with final grades in a variety of freshman courses. The individual 
correlations appeared small, but the relative predictive power was demon 
strated clearly. 

The following major conclusions concerning the predictive significance 
of the present battery appear to be warranted: 

(a) Overlapping of tests in the battery used is evidenced, suggesting 
that such an extensive array of examinations is somewhat super - 
flous and repetitive. Both over-all and individual course predic- 
tions could be made with even greater accuracy with a more ab- 
breviated battery,. 

(b) From the scattergram, it was found that it is feasible to deter- 
mine the cut-off score in screening and to obtain more insight 

in the statistical probability of achievement of a student in a par- 
ticular course. 

(c) Because of the small number of cases in this particular study, a 
caution against placing too much weight on individual test scores 
in guidance, selection or placement is in order. 



SCAT TERGRAM OF SCAT T-SCORE vs. CHEMISTRY 1A 



D 



99-95 3 

94-90 2 3 

89-85 1 2 2 

84-80 2 3 5 

79-75 2 3 1 

74-70 1 3 4 

69-65 4 1 

64-60 3 

59-55 1 

54-50 1 

49-44 1 

TOTAL 14 14 19 




SCATTERGRAM OF MATHEMATICS PLACEMENT 

vs. 

CHEMISTRY 1A 

F_ ID C_ B_ A 

1 

3 3 11 3 2 
9 7 7 1 

4 4 1 1 
1 



17 14 19 5 3 



APPENDIX (D) 



SUMMARY OF EQUATIONS 



Variances v\ 



3 

Regression Line 

b 



Correlation Coefficient 



Standard Error of Estimate 



Standard Error of Regression Coefficient b 



Signficance of r 

Compare [a.) with the critical value in statistical table for 2 
variables and n-2 degrees of freedom. 



Signficance of b 

Compare t-'^T with the critical value in statistical table 
for n-2 degre"es of freedom. 
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NORTHROP CORPORATION 



ABSTRACT 



This paper describes how the IBM 1620 computer was teamed with a high-speed digital 
data acquisition system and two tape units to perform on-line processing of wind tunnel test 
data. The total installation is located in the Northrop Norair wind tunnel complex comprised 
of three tunnels: subsonic, transonic- supersonic, and hypersonic. The processing installa- 
tion provides a central data acquisition and reduction function for all three tunnels, even 
simultaneously when necessary. 

The high-speed data acquisition section scans, measures, and digitizes test data, in- 
troduces identification information, and records the data on magnetic tape for instantaneous 
reading by the 1620, in a read-after-write manner. The 1620 then reduces the data into 
tabulations meaningful to the aerodynamics research engineers, enabling them to make early 
evaluation of test run results and to proceed with model changes if called for. 

During off-line operations, the computer is available for other applications, and has 
full control of the tape units. 
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NORTHROP CORPORATION 



INTRODUCTION 



Today, more than ever, competition in the aerospace industry is very keen and time 
is one of the most important elements to be utilized. For this reason, a company that makes 
use of wind tunnels must also have a satisfactory test data acquisition system and a means of 
automatically reducing the collected data as soon as it becomes available. 

In the following paragraphs you will learn how we at Northrop have improved our tech- 
niques in this area. Our wind tunnels will be described as well as our data acquisition sys- 
tem to which a 1620 computer is coupled. Also of interest will be the changes we designed 
into the 1620 computer to make it suitable for our applications and the programs we have 
written to fulfill our objectives. 

To the general public, wind tunnels are environmental chambers used to test model 
planes, but to the aerodynamicist, wind tunnels are probably the most superior devices 
used in aeronautical and aerospace research and development. Because of modern wind 
tunnels, today's test pilots are no longer the nerveless stunt men of the past, but profes- 
sional engineers. Wind tunnels offer both fast and accurate data as well as the ability to 
simulate the different types of atmospheric conditions of any time of day or year. However, 
they are by no means new tools. Years before the Wright Brothers famed flight at Kitty 
Hawk, wind tunnels, crude as they were, gave valuable aerodynamics data which proved the 
feasibility of powered flight. The original wind tunnel employed by Orville and Wilbur 
Wright is on exhibit at the Air Force Museum, Wright- Patterson Air Force Base in Dayton, 
Ohio. 
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NORTHROP CORPORATION 



WIND TUNNEL TESTING FACILITIES 



Dominated by its 100,000-cubic-foot vacuum sphere is the supersonic-hypersonic wind 
tunnel facility at Hawthorne, California. This space age test facility provides test veloci- 
ties from Mach 0.5 to Mach 14 with temperatures to 3000 degrees and simulated altitudes to 
200,000 feet. To my knowledge, no privately- owned wind tunnel in the United States can 
produce the combined heat, pressure, velocity and run time that are obtainable with the 
one at Hawthorne. This relatively new, dual-circuit facility provides a greatly expanded 
capability for aerodynamics testing on advanced aircraft, missiles and space systems. It 
consists of two separate wind tunnel circuits: transonic- supersonic (Mach 0.5 through 
Mach 5) and hypersonic (Mach 6 through Mach 14). Design models can be tested for periods 
of at least 30 seconds in the supersonic circuit and up to one minute in the hypersonic cir- 
cuit. The hypersonic tunnel can accommodate up to six 30- second runs each eight- hour 
shift. More test runs of proportionately shorter duration are possible. 

Test sections, in which the models are mounted for aerodynamic study, measure two feet 
square in the supersonic circuit and 30 inches in diameter in the hypersonic circuit. A 
special "free jet" section in the hypersonic circuit allows removal of a model from the air 
flow while air flow is being established, thus protecting the model from excessive heat 
loads. The pressing of a button promptly injects the model into the flow stream. In a 
transonic or supersonic run, air passes from storage through a settling chamber (to smooth 
the airflow and remove any turbulence), is expanded through a nozzle (to establish Mach 
number), flows through the test section and then is forced through a "second throat" to re- 
duce its velocity and to recompress it to atmospheric pressure before it exhausts through a 
muffler. 

In a hypersonic run, air must be expanded so much (to achieve the higher velocities) 
that its temperature could actually be reduced to a point where the air would turn to liquid. 
To prevent liquefaction, an electrically fired heater containing a 16-ton bed of 3/8- inch 
alumina pebbles heats the air to temperatures as high as 3000 degrees Fahrenheit before it 
reaches the hypersonic nozzle. When the air is cooled by expansion, its temperature is 
therefore still high enough to keep it from liquefying. 

From the test section, the hypersonic air passes through a "second throat" as in the 
supersonic circuit, to reduce velocity and then through a cooler to remove heat. It is then 
discharged into a large 100,000 cubic-foot vacuum sphere. The vacuum sphere is essential 
to hypersonic operations in order to achieve the high velocities desired in the test section. 
With storage pressure fixed at 3,200 pounds per square inch, the required pressure ratio 
obviously cannot be met by discharging the "used" air to atmospheric pressure (14.7 pounds 
per square inch). A low-pressure atmosphere is necessary and this is the function of the 
vacuum sphere. 

About 100 feet from the supersonic-hypersonic facility and in another building is the 
7 T x 10' subsonic wind tunnel which went into operation in the year 1956 and was used in the 
very successful development of the Northrop T-38 Talon supersonic trainer, F-5 fighter, 
and Laminar Flow Control (LFC) airplane. During those tests, the output of test data was 
punched onto cards, carried to a remotely-located IBM 704 computer installation, processed 
and returned in a relatively long turn-around time (normally about three days; on emergency 
basis about four hours). 

13 2 



NORTHROP CORPORATION 



DATA ACQUISITION SYSTEM 



Today in the same building that houses the subsonic tunnel, is the data acquisition 
system, which we are very proud to possess. It was designed and built to our specifications 
by the Astrodata Corp. It serves all three of our wind tunnels. The data from any two of 
the three remotely-located tunnels can be transmitted to this center simultaneously. 

The analog data, supplied by transducers at each of the tunnels is digitized by an 
analog-to-digital converter (ADC) in the central data system. The digital data from the 
ADC is then sent to the formatting generator where it is joined by other digital data from 
the model-position encoders, the time-of-day clock and also the switch settings from both 
the transmitting site and the central data system. The switch settings provide fixed infor- 
mation such as the barometric pressure, the test number, the run number and the date. 
The formatting generator then assembles and prepares the data for recording on magnetic 
tape. The records produced by the formatting generator are of variable length and auto- 
matically padded to contain an integral multiple of six characters, so that the resulting 
magnetic tape recordings can be used with both the 7090 and 1620 IBM computers. The 
ability to read the system-generated tapes by the 7090 computer proved very valuable dur- . 
ing system checkout, because the 1620 computer was not adapted to handle magnetic tapes 
until later. 

There are two types of records produced by the data acquisition system. The first of 
these is the title run record which identifies the test run by a test number, a run number, 
four parameters, the barometric pressure, the day and the time of day, and the model posi- 
tion by roll, yaw and pitch. The activation of the title push button switch will initiate output 
of a title run record consisting mainly of the above information provided through manually- 
set, thumbwheel switches. The second of the two types of records produced by this system 
is the data record. A data record is generated when the data circuit is closed (manually or 
automatically). The data record consists of an identification header, the time of day, the 
model position, and data from all site input channels programmed for the specific test. 
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COMPUTER UTILIZATION 



The 1620 computer employed is a Mod I with 40,000 core storage positions. It is 
equipped with most of the special, built-in features (indirect addressing, hardware divide, 
and floating point arithmetic). This computer is attached to the data acquisition system by 
an umbilical cord; it has been programmed to read and reduce the data as it is being re- 
corded on any one of the two magnetic tape units. The reading is accomplished in a read- 
after-write manner, termed "eavesdropping." The information is introduced into the com- 
puter by the read gap, which is positioned a distance of .300- inch behind the write gap of a 
two-gap read-write head, almost immediately after the information is written onto the tape 
by the system. The normal function of the read gap, which is to provide parity checking 
during the recording process, was extended to make this possible. The two magnetic tape 
units used are Datamec D2020. These units are IBM compatible, using either 200 bpi or 
556 bpi tape formats at 30 ips tape speed. The Central Data System (CDS) records at the 
556 bpi density. 

Eavesdropping allows the computer to sample the data as it is being recorded without 
interfering with the recording process itself. During the eavesdropping or on-line mode, 
as it is sometimes called, all the tape units are under the control of the CDS. Upon receipt 
of a signal from the 1620, the CDS causes the first character and associated parity bit to be 
transmitted to the 1620. Each character and associated parity bit continues to be trans- 
mitted until the longitudinal redundancy check character (LRCC) is encountered. The com- 
puter cannot initiate tape movement by attempting to read a tape while in this mode; there- 
fore, a read tape instruction hangs up the computer until the CDS moves the tape to record 
new information. Besides the eavesdropping mode, the computer is also able to operate in 
an off-line mode. During the off-line mode, a selected tape unit (any of the two) may be 
read or written by the 1620 as if it were its own. These two modes of operation are manually 
selected. 

Reduced punched card data is generally generated and plotted off-line during tests. An 
IBM 407 printer is also available in this center and is used to print much of the punched card 
output. 
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COMPUTER HARDWARE MODIFICATIONS 



The 1620 computer performing the data reduction is unique. Three new instructions 
had to be designed and the computer modified to permit their use for this special applica- 
tion. The design and implementation of these instructions into the computer required 
several months. In addition, other instructions were adapted to permit the reading, writing 
and other handling of magnetic tapes. 

The three new instructions pertain specifically to the use of magnetic tape. 



Two instructions that refer to paper tape normally, RNPT, read numerically paper 
tape and WNPT, write numerically paper tape, were modified to read magnetic tape (RMT) 
and write magnetic tape (WMT), in the numerical mode. 



In order to allow for tape redundancy and end of file testing, the functions of the 
following sense switch testing codes were extended. 



When a BC1 instruction is executed, a branch takes place if either sense switch 1 is 
on or if a tape redundancy occurs. Likewise, the BC2 instruction also serves two purposes: 
a branch will occur if either sense switch 2 is on or an end of file mark is sensed. These 
two sense switches must be in their off position during magnetic tape operations. The redun- 
dancy and end of file indicators are not reset by any of these two instructions; they are reset 
only when the selected tape is put into motion again. 



BST, 

REW, 

WEF, 



backspace magnetic tape (36XXXXX01300), 
rewind magnetic tape (36XXXXX02300) and 
write end of file (36XXXXX01200) 



RMT, read magnetic tape (36YYYYY00300) and 
WMT, write magnetic tape (38YYYYY00200) 



BC1, branch console switch 1 on (46YYYYY00100) and 
BC2, branch console switch 2 on (46YYYYY00200) 
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SOFTWARE 



Although the magnetic tapes normally may be read and written with FORTRAN coded 
programs by utilization of the paper tape statements, the tapes produced by this system can 
only be read by SPS or machine type programs. This is due to the various field widths con- 
tained within the records written by the system. The problem of reading tapes was quickly 
resolved by the writing of an SPS subprogram that could be called by and loaded with 
FORTRAN coded programs. 

The SPS subprogram was designed to operate in two modes. The first of these modes, 
as directed by the arguments of the FORTRAN program, causes a compacted system record 
to be read from the tape. Each of the fields of the record is then extracted and expanded to 
a six- character field width. Flags are placed over the leftmost positions of each of the 
fields and the fields are then transmitted to their prescribed COMMON locations as integers. 
The second of the two modes requires the subprogram to search through the tape (not used 
during the on-line operation) for a particular title run record that agrees with the run and 
test numbers indicated in the arguments of the calling program. When the appropriate 
record is found, the information from the record is processed in the same manner as it 
was in the first mode. If the record is not found an indicator is placed in a communication 
field, reserved in COMMON for this purpose. 

The two tape reading modes of the subprogram, described above, are very useful and 
make the 1620 an even more important asset to the overall system. The first of these two 
modes provides the user with integer data that is FORTRAN- compatible. The second mode, 
in addition to performing the same task as the first mode, assists in retrieving previously 
recorded data. 
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RECORD FORMAT 



The formatting generator produces two types of records and these are the title run 
record and the data record. The purpose of the title run record is to provide identification 
for the data records that follow it. The title run record consists of 54 characters of the 



following information: 








Characters 


1 - 


5 


Information Retrieval Aid (IRA) 


Characters 


6 - 


12 


Time of Day (TOD) 


Characters 


13 - 


24 


Model Position (Pitch, Yaw and Roll) 


Characters 


25 - 


32 


Parameters from the CDS to be used for 








computations or further identification 


Characters 


33 - 


35 


Day (001 thru 366) 


Characters 


36 - 


40 


Barometric Pressure 


Characters 


41 - 


48 


Parameters from the transmitting site to 








be used for computations or identification 


Characters 


49 - 


54 


Test and Run numbers 



The IRA indicates the record type and identifies the test site. In the data record, it 
also gives the number of channels (data words) that were recorded. 

The data records produced by the formatting generator are of a variable length. The 
length varies with the number of data words that are recorded. Characters 1 - 24 of the data 
record are of the same format as those of the title run record. Characters 25 and above 
represent data words. Each data word consists of four characters. As many as 100 data 
words can be recorded in one record. The record is automatically padded to contain an 
integral multiple of six characters. 
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SITE 

(FIXED DATA SWITCHES) 



CENTRAL 
(FIXED DATA SWITCHES! 



BAR. PRESS. 



PARA 2 PARA 1 



MODEL 
POSITION 
A 

YAW 



54 53 52 51 


50 49 48 47 46 45 44 43 42 41 


40 39 38 37 36 35 34 33 32 31 


30 29 28 27 26 25 24 23 22 21 


20 


19 


18 


17 


16 


15 


14 


13 


12 


1 1 


10 


9 


8 




6 




4 


3 


2 


1 


CH 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


1 
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O 
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1 
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NORTHROP CORPORATION 



CONCLUDING REMARKS 



This paper has described how an automatic data acquisition and processing system 
was developed to perform a vital function in the modern wind tunnel complex at Northrop 
Norair. The major benefits of this computerized system can be stated as follows: 

1. It reduces wind tunnel data immediately when it is most needed. 

2. It permits quicker and more effective adjustments to be made to the model 
within the test chamber. 

3. It shortens the time spent in carrying out a series of tests. 
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Preface 



This paper i s composed of three section. 
Section I introduces the need for computer languages 
similar to IPL-V, section II outlines the IPL-V 
language, and section III describes the IPL-V imple- 
mentation for the IBM 1620 computer. A detailed 
description of the IPL-V instructions and a sample 
problem are contained in the appendix. A list of 
selected references is given at the end. 
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Stored program digital computers were initially 
developed as devices for performing complex arithmetic 
calculations at high speeds. At first, the task of 
programming these machines was burdensome because all 
programming was done in machine language. However, 
programming languages were soon developed as an aid to 
the programmer, beginning with low level assembly 
languages for specific machines and eventually evolving 
into high level, machine independent languages such as 
FORTRAN, ALGOL, and COBOL. Due to the arithmetic origins 
of the computer, these languages were designed to assist 
the programmer in the coding of arithmetic or numeric 
probl ems . 

For a long time, however, it had been known that 
the digital computer, with its ability to analyze data 
and take differential action, was not inherently 
limited in scope to numeric problems. Indeed the problem 
of translating source statements from a high level 
language like FORTRAN into machine code is itself a 
problem basically non-numeric in nature. Other problems 
for which computer solutions were sought include chess, 
bridge, analytic differentiation and integration, 
language translation, pattern recogni tion, study of learn- 
ing and self -organizing systems, information retrival, 
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theorem proving, and most recently theory developing. 

As interest in these and similar problems grew, 
certain questions arose. Is the present form of digital 
computer, designed with numeric computations in mind, 
necessarily the best for non-numeric problems? If not, 
what better designs might there be? Is it in fact 
possible to believe that one design will be capable 
of handling the majority of non-numeric problems? Is 
it possible to develop a high level language which will 
do for non-numeric computation what FORTRAN does for 
numeric computation? 

Today these questions remain largely unanswered. 
No one has succeeded in developing a high level language 
designed for non-numeric computing although work is 
being carried on in this area. Some computer designs 
have been developed which seem to yield a better method 
of attack on non-numeric problems than that afforded by 
numeric computers. 

To more fully appreciate the problems confronting 
the designer of a non-numeric computer, it is necessary to 
examine some of the common characteristics of the non- 
numeric problems listed above. These problems cover a 
wide variety of topics and one might suspect that there 
is little in common among them; however, four character- 
istics do appear in most of the problems. 

First, each problem is non-numeric in part or in 

146 
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whole. The great computational power of modern numeric 
computers is not needed. 

Second, in most of the problems there is a need 
for a unit of data more complex than a simple number or 
array of numbers. For example in analytic differentiation, 
some method of representing algebraic formulae is needed. 
In language translation or theorem proving some method 
of representing syntax or theoretical relationships must 
be provided. 

Third, in many of the problems the assignment of 
specific areas of memory to contain certain types of 
information is difficult or impossible since the form, 
structure, and amount of information is not known at the 
time a program is set in action. For example, in many 
cases it is not known what form a se1 f -organi zi ng 
system will take, or what concepts, and hence information, 
a theory developing program wi 1 1 yield. 

Fourth, it is often desirable to have certain 
portions of a program call on themselves as subroutines. 
This is called recursion and is useful in differentiation 
or game playing where a routine may call on itself to 
look ahead a move. 

A successful non-numeric computer, if it is to 
have general applicability, must be designed to meet 
these four needs. Similarly, any language aimed at non- 
numeric work must fill these needs. 

1.4 7 



IPL-V is an abbreviation for Information proces- 
sing Language V, a highly successful and widely used 
language designed for non-numeric computing. The IPL 
languages were developed at the RAND Corporation by 
Newell, Shaw and Simon, beginning in 1954 with I PL- 1, 
a language for playing chess. Of the IPL languages, 
IPL-V is the only one which has seen widespread use. 
The language is we 1 1 -documented and a manual for program- 
mers is available. 1 In the next section IPL-V is outlined 
and the manner in which it meets the four problems 
posed above is discussed. 



See reference [3]. 
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The IPL-V language may be regarded as an assembly 
language for a non-numeric computer, the IPL computer, 
or as a medium level language which is machine independent 
and is executed on numeric computers by an interpreter 
program. It is interesting to note that an IPL computer 
has never been built, and all work done in IPL-V is 
accomplished by means of interpreters. Nevertheless it 
is useful to describe the IPL-V language in terms of 
the IPL computer. 

It is the function of the IPL computer to manipu- 
late symbols, that is, to accept as data, members of a 
certain set of symbols, to store these symbols in memory, 
move the symbols from one location to another, compare 
the symbols, make decisions based on these comparisons, 
organize the symbols in memory in a meaningful manner 
and produce as output a sequence of symbols. For this 
reason IPL-V is often referred to as a symbol -mani pul at ion 
1 anguage. 

The memory of the IPL computer is divided into 
cells, and it is the addresses of these cells which 
form the symbol manipulated by the computer. That is, 
an IPL symbol is the address of a cell in the IPL 
memory. The meaning assigned to these symbols is arbi- 
trary. Thus regardless of the contents of cell 14613, 

- 5 - 
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the address 1^+613 may represent New York City in a 
military problem, Act II of Haml et in a literature 
analysis, or the principle of mathematical induction in 
a theorem proving problem. 

Since it is inconvenient for a programmer to deal 
directly with memory addresses, the IPL-V language 
allows a more convenient external representation of 
symbols. The thirty-six characters A B C ... Z $ = . + 
- * / ) ( and , are called regional characters. At the 
beginning of his program a programmer may assign to each 
regional character a continuous block of cells in 
memory. The block of cells assigned to say A is called 
the A region and the individual cells in this region are 
referred to by the symbols AO (or simply A) for the first 
cell, Al for the second cell, etc. Any symbol naming 
a cell in one of the thirty-six regions is called a 
regional symbol . The assembler translates regional 
symbols into the corresponding addresses. In addition 
the IPL computer has the ability to transform the address 
of any regional cell into the correct regional symbol 
during output operations. The address of any cell not 
assigned to a region is a non-regional symbol, and may 
be represented by the programmer in a variety of ways. 

Each cell in the IPL memory contains two digits 
called the P and Q digits and two addresses called the 
SYMB for symbol and the LINK. A typical cell in memory 

1 5 (I 



is represented by the following diagram: 



P Q SYMB LINK 

The individual portions of a cell are not addressable. 

Cells may be used for one of three purposes: to 
contain an instruction for the IPL computer, to contain 
data, or to contain information necessary to the function- 
ing of the IPL computer. 

There are a fixed number of cells of the third 
type and three regions are automatically set aside to 
contain them. The H, W, and J regions always contain 
the same cells in memory. The cells of the H region 
function as registers and indicators in the IPL computer. 
The W region contains some cells usable by the programmer 
as temporary storage and other cells used in exercising 
a certain degree of control over the operation of the 
computer. Each cell in the J region represents and 
contains the first instruction of a built in subroutine, 
of which there are 188 in a complete system. 

With the exception of the H, W, and J cells, any 
cell in memory may be used to contain data or an 
instruction, and during the course of a program, may 
contai n both . 

A cell containing data may be of two types. A 
data term is a cell containing special alphanumeric or 
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numeric information, while the P and Q digits indicate 
the type of information? A standard data eel 1 is a cell 
used to store an IPL symbol. The symbol is stored in 
the SYMB and the P and Q digits indicate the type of 
symbol. J The LINK of a standard data cell also contains 
a symbol, the use of which will be described below. A 
data cell containing the symbol might look as follows 

1 0,0, 14613 , Q00Q0 [ 
P Q SYMB LINK 

where 14613 is the address of the first cell in the 
region. Unless attention is to be called to the P and 
Q digits, this will be represented by 



1 + ,01 • 



All data terms have a Q digit of 1 which serves 
to distinguish them from standard data cells which have 
a Q digit of 0, 2, or 4. The P digit of a data term 
indicates the type of information stored in the data 
term as fol 1 ows : 

P=0 Decimal integer 

P=l Floating point number 

P=2 Alphanumeric 

P=3 Octal number 

3 

Standard data cells usually have a P digit of 
although they may be specially marked by a P digit of 1. 
The Q digit indicates the type of symbol contained in 
SYMB as fol lows : 

Q=0 SYMB is regional 
Q=2 SYMB is local 
Q=4 SYMB is internal 



The data terms play a rather minor role in the computer, 
usually serving as storage locations for numeric 
information; while the role of the standard data cell is 
central to the operation of the computer. 

In dealing with symbols of arbitrary meaning, the 
IPL computer answers the first need of a non-numeric 
computer, that of dealing with non-numeric information. 
These symbols do double duty, serving sometimes as the 
addresses of cells in memory and at other times represent- 
ing the concept assigned by the programmer. However, 
the IPL symbol, being an address, is basically no more 
complex than a number. 

The need for a complex unit of data is fulfilled 
by the list, a basic unit of data in the IPL computer. 
A list is a sequence of data cel ls whi ch are joi ned 
together by having the link of each cell contain the 
address or name of the following cell. A list of the 
symbols Al , B7 > C4, and Al in that order would be 
represented by the following diagram, 

Mk >! Al , -1 > 1 B7 , -| > | C4 , -j > [ Al ,01 . 

where the arrows indicate the cell referenced by the LINK 
of a cell. Note the use of the symbol in the link of 
the last cell. This symbol is called the termi nati on 
symbol and indicates that the list terminates at that 
point. The name of the first cell in the above list is 
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M4 and the list is also referred to by that symbol. 

Given cell M4, any symbol on the list may be reached by 

passing from link to link. 

Far more complex structures may be created by using 

the SYMB of some cells on a list to contain the names of 

other lists. The Q digit of a cell on a list may be used 

to indicate whether the SYMB contains an abstract symbol 

or the name of a sublist which is to be considered part 
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of the structure. The number of structures possible is 
limited only by the programmer's imagination, but for 
simplicity only lists will be considered below. 

Because of the list, IPL-V is called a list- 
processing language, as are other languages which use 
the same concept. The language contains subroutines for 
list manipulations such as copying, printing, searching, 
or erasing lists. An example is a subroutine which will 
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For example, the algebraic expression A*B+C/(D+A) 
may be represented by the structure El below which 
expresses the structure of the expression in a manner not 
possible in a linear list representation. 



El 







1 / ,4 



D 



A JD_ 



A 



B ,0 
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test whether a given symbol occurs on a list or not. 
Consider again the list: 

> | A1 , -j > [ B7 , j >| C4 , -| > | A1 ,0| 

The location of the first cell of the list is important. 
Since the name of the list is M4, the first cell of the 
list must be cell M4, but the location of the remaining 
three cells is unimportant to the structure of the list. 
This fact has important consequences. 

When inserting a new symbol on a list, it is not 
necessary to disturb the original cells of the list. For 
example, the symbol D5 may be inserted between B7 and 
C4 on list M4 above by finding any unused cell anywhere 
in memory, placing the symbol D5 in that cell, and 
rearranging the links as follows: 

M4 >| Al , 4 > 1 B7 , + t r— > 1 , -| > | Al ,01 



-> 1 D5 , 



In this way a solution is achieved for the third 
problem of non-numeric computers, memory assignment. A 
block of memory need not be reserved for expansion of a 
data structure, since in expanding, a data structure may 
make use of any unused cells in memory, whether they lie 
in a continuous block or not. Even the names of new 
data structures may be kept on lists. Only the total 
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number of cells in memory is of concern to the IPL-V 
programmer. 

It might, seem that locating an unused cell in 
memory would be difficult, but this problem is handled 
in an elegant and efficient manner. After assembly, all 
unused cells are linked together to form a list named 
H2 and called the avai lable space list . During processing 
when a cell is needed, one is removed from H2 for use; 
and when a cell is no longer needed by the programmer, 
it is returned to H2. 

The list organization also allows cells to be used 
as though they were capable of storing more than one 
symbol. Suppose for the moment we have a symbol stored 
in cell WO, say A7, and we need to temporarily store a 
second symbol, say B3, also in WO. 

WO > [ A7 ,01 

We execute an IPL instruction causing the computer 
to push down eel 1 WO. That is, an unused eel 1 is 
removed from H2, inserted behind cell WO, and a copy of 
the symbol in WO is placed in the new cell, creating 
the fol lowing list: 
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Now that a copy of A7 has been made, B3 may be placed 
in WO. 



We may go even further and store C8 in WO before remov- 
ing B3, by pushing down WO again, then storing C8. 



The list created in this manner is called a push down 
list but is no different from any other list. 

When the symbol C4 is no longer needed in cell WO, 
a pop up instruction is executed. This operation copies 
the second symbol on the list into the first cell and 
removes the second cell from the list, returning it to 
H2. 

WO > | B3 , ,-| > | A7 ,01 

One more pop up, and WO is returned to its original 
state. 

WO > [ A7 ,0| 

The preceeding sequence of events may be summarized 
by writing the push down list vertically. 



WO >[ B3 



■> 1 A7 ,01 



WO > | C8 



•> 1 B3 ,4 



•> 1 A7 ,01 



A7 



push 



■> A7 
A7 



store 



■> B3 
A7 



push 



-> B3 
B3 
A7 



store 




down 



down 
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The push down and pop up instructions enable a 
subroutine and main routine to use the same storage 
cells. A set of working cells, WO through W9, are 
provided for temporary storage. When a subroutine needs 
temporary storage, some of these cells are pushed down, 
then used as storage. Any information stored by the 
main routine in these cells is preserved by the push 
down operation. Before terminating, the subroutine pops 
up these cells, returning them to their original state. 

The ability of the IPL computer to allow recursion, 
the fourth need of a non-numeric computer, is also based 
on the push down operation. The cell Hi, called the 
current i nst ruction address eel 1 , contains at any given 
time the address of the instruction currently being 
executed by the IPL computer. When an instruction is 
completed, the address of the next instruction is 
obtained and placed in Hi. Like any other cell in the 
memory, Hi may be pushed down. When one routine calls 
on another as a subroutine, Hi is pushed down by the 
computer, saving the address of the instruction in the 
main routine where processing is suspended. The address 
of the first instruction in the subroutine is placed in 
Hi and that instruction is executed. Processing now 
continues along the subroutine and the computer is said 
to have descended a level. Before terminating, the 
subroutine may call on itself or another subroutine. 

156 



mam.. 



15 

Again Hi is pushed down, saving the point at which proces- 
sing was suspended in the subroutine, and processing 
continues at a lower level. When a subroutine terminates, 
Hi is popped up and the routine one level up resumes 
action. A combination of the manner in which Hi is used 
and the ability of the working cells to keep the 
contents of routines on different levels from becoming 
mixed, allows a subroutine to call on itself. 

The instructions in the IPL computer are kept in 
lists. The P, Q, and SYMB of a cell make up the 
instruction and the LINK indicates the next instruction. 
The IPL computer follows instructions from cell to cell 
down a list rather than executing instructions sequen- 
tially in memory. This allows routines to be manipulated 
with the list processing subroutines. It is conceivable 
that a main routine could construct a subroutine using 
list processing subroutines, execute that subroutine, 
then erase it, that is, return all of its cells to the 
available space list. 

In communicating information to a subroutine, a 
special cell HO, the communication cell , is used. The 
symbols required as inputs by the subroutine are placed 
in HO using the push down operation. The subroutine 
accepts these inputs, removing them from HO, and before 
terminating, places all output symbols in HO where they 
are recovered by the mai n ' routi ne. 
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In addition to producing output symbols, some 
subroutines produce a yes or no answer. For this purpose 
a cell called the test eel 1 , H5> is provided. The test 
cell may be in one of two states, "+" or and an 

instruction is provided to allow conditional branches 
or transfers within the program on the basis of the state 
of the test eel 1 . 

There are only eight basic instructions in IPL-V, 
most of the processing being done by the numerous sub- 
routines. Two instructions are used for placing symbols 
in HO, one instruction for calling on subroutines, two 
instructions for removing symbols from HO, one instruction 
each for popping up cells or pushing down cells, and one 
instruction for conditional branching on the status of 
the test cell. The P digit determines the type of 
instruction and SYMB contains a symbol, the name of a 
cell, or the name of a subroutine, depending on the context. 
The Q digit is used in connection with SYMB for three 
levels of addressing. For more complete information 
concerning instructions and a sample routine, see the 
appendix. 

The external form of IPL-V is quite simple. Lists, 
instructions or data, are written vertically on the coding 
sheet. Each line represents a cell and space is provided 
to indicate the name of the cell and the P, Q, SYMB, and 
LINK of the cell. If a link is left blank, the cell is 
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assumed to link to the cell on the following line of the 
coding sheet and the name of the following cell may 
also be left blank if its memory location is unimportant 
Thus to create the list 

Tk—>\ + , -| > 1 Z28 , -| > [ Z29 ,01 

we write on the coding sheet 

NAME PQ SYMB LINK 

Jk + 

Z28 

123 
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The University of Oregon IPL-V system for the IBM 
1620 computer, developed and written by the author and 
John D. MacDonald, was designed with two objectives in 
mind. it was intended first as an educational device to 
acquaint students with list processing and symbol 
manipulation problems, and second as a system for check- 
ing out IPL-V programs before running them on larger 
computers. In view of the educational aim, operating 
speed was sometimes sacrificed for operating ease and 
additional safeguards. Because of the speed and size 
of the 1620, the system was never intended as a production 
tool . 

The 1620 system is based on the specifications of 
IPL-V set forth in the manual 5 and is fully compatible 
with those specifications, though not all options are 
available on the 1620 system. Operating on any 1620 
equipped with card 1/0, indirect addressing, automatic 
divide, and special instructions, the system provides 
approximately 640 IPL cells at run time with a 20K 
memory. An additional 1,660 cells are available with each 
additional 20K of memory. The system operates at approx- 
imately 80 IPL instructions per second and is equipped 
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See reference [3], 
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with all tracing and monitoring features specified by 
the manual. These features include operator or program 
controlled trace with output on any unit, automatic 
trapping on error conditions, and flexibility in trap 
recovery . 

The system consists of three decks, the assembler, 
subroutines, and the interpreter, which are loaded in 
that order with the source deck placed between the 
assembler and subroutines. The assembler loads into the 
lower portion of memory and assembles the source deck 
directly into the upper portion, producing an assembly 
listing on option. Next the subroutine deck is read by 
the assembler and those subroutines called for are 
loaded into memory. After the last card of the subroutine 
deck has been read, the interpreter loads into the lower 
portion of memory, occupying the space previously occupied 
by the assembler; the computer halts; and execution 
begins when START is pressed. 

The internal form of an IPL cell is a twelve 
digit field with an odd address. From low to high 
address the cell contains the P, Q, SYMB (five digits), 
and LINK (five digits) . 

Provisions are made for writing additional 
subroutines in SPS and including them in the source 
deck. It is also possible to reserve blocks of space 
in the 1620 memory for use by other systems. Methods 
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of setting, up linkage between systems are described in 
the documentation. 

The documentation is in the form of an appendix to 
the manual^ with cross references. A master copy of the 
documentation is maintained on cards for easy editing 
and reproduction. 

During the summer and fall of a preliminary 

version of the system was written. This version was 
distributed to approximately twenty participating users 
for field testing and was used in a one term seminar in 
IPL-V programming at the University of Oregon. Students 
in this seminar used the system for problems such as 
analyzing poetical structure, construction of Farey 
sequences of numbers, calculation of all closed paths in 
a planar graph, and construction of a machine for 
playing Hex. The system has also been used for map 
coloring and analytic differentiation. 

The preliminary version does not contain block 
handling, auxiliary storage, read/write, floating point, 
save for restart, or post mortem dump routines. During 
the summer of 1964, a final version will be written, which 
will include all features except auxiliary storage 
processes. The final version will be submitted to the 
1620 Users Group's General Program Library for distribution. 

See reference [3 ]• 
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The IPL -V Instruction 

The Q digit of an instruction operates on the 
SYMB to produce a transformed symbol S as follows: 
Q=0 S is SYMB. 

Q=1 S is the symbol contained in 
the cell whose name is SYMB . 

Q=2 S is the symbol in the cell 
whose name is contained in 
the eel 1 named SYMB. 

For example, if we have the following cells in memory, 

Al > j Tk ,01 

T 4 >| J8 ,0 



and the SYMB of the instruction contains Al , the Q 
digit produces the following transformations: 

PQ SYMB J 

Al Al 

1 Al Tk 

2 Al J8 

The transformed symbol S is stored in a register; the 
SYMB portion of the original instruction is never 
al tered i n memory . 

After the transformed symbol has been obtained the 
P digit determines the action as follows-. 

P=0 call on the subroutine whose 

first instruction is in cell S. 

p=1 push down HO and place a copy 
of the symbol S in HO. 
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P=2 copy the symbol in HO into 
cell S, then pop up HO. 

P=3 pop up cell S. 

P=4 push down cell S. 

P=5 same as p=l except HO is 
not pushed down first. 

P=6 same as P=2 except HO is 
not popped up afterward. 

P=7 if H5 is transfer to 

cell S for the next instruc- 
tion, if H5 is +, continue. 

Sampl e Probl em 

As an example of how the instructions are used, we 
will write a short subroutine below. It will be necessary 
to understand the operation of two of the J routines. 

J2 accepts two inputs in HO. Each input is a 
symbol. J2 compares the symbols and sets H5 "+" if 
they are equal and "-»', if not. J2 leaves no symbols 
as output in HO and the two input symbols are no longer 
in HO after J2 terminates. 

J60 accepts one input which is the name of a cell 
on a list. if that cell is the last cell on the list, 
j6o sets H5 "-" and leaves the input as output. If the 
cell is not the last cell on the list, j6o places the 
name of the following cell in HO and sets H5 "+". 

We now code the routine E4. Ek is a routine which 
evaluates a function of X at a given point. More 
clearly, Ek accepts a symbol representing a given point, 
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say A, and a second symbol assumed to be the name of a 
list representing a function of X. For example, the list 
Fl below: 

Fl X 

L 

G 
( 
B 

/ 

x b 
) "xlog (£)" 

E4 then evaluates the function at A by replacing every 

occurrence of the symbol X on the list by the symbol A 

to yield the list: 

Fl A 

L 

G 

( 
B 

/ 

A b 
) M a1og(|)" 

Ek should leave no output in HO. In addition since 

Ek does not set H5 as part of its output, the status of 

H5 should be the same after execution of Ek as before. 

But E4 must call on J2, which does reset H5 • For this 

reason, it will be necessary to push down H5 at the 

beginning of E4 to save its status, then to pop it up 

at the end to restore its status. Two storage cells, 

WO and Wl will also be needed. It is assumed that the 

routine which called on E4 input the name of the function 



list first, then the symbol representing the point. 



A little study and liberal use of a black board as a 

simulator will make the operation of E4 clear. The 

symbols 9-1, 9-2, and 9-3 are called local symbols and 

are used for internal branching within the routine. 

Name PQ SYMB LINK Comments 
E4 40 H5 Preserve H5 



9-3 



9-2 



9-1 



40 
40 
20 
12 
10 
00 
70 
60 
1 1 
21 
00 
70 
30 
30 
30 
30 



WO 
Wl 

wo 

HO 
X 

J2 

9-2 

Wl 

WO 

Wl 

J60 

9-3 

WO 
Wl 
H5 
HO 
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Preserve W0 

Preserve Wl 

Move "point" to W0 

Input symbol in list cell 

Input X 

Compare symbols 

Go to 9-2 if not equal 

Copy list cell address in wl 

Input point symbol 

Move point symbol to list cell 

Find next list eel 1 

If no 1 i st eel 1 , clean up 

Restore W0 

Restore Wl 

Restore H5 

Pop up HO, terminate 
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It was refreshing to hear Dr. Edward N. Brandt, of the University of Oklahoma 
Medical School Biostatistical Laboratory, say in his keynote address that the 
problems dealing with computers in the field of medicine are such that they are 
basically related to and parallel the problems which are encountered in the oil 
industry. Dr. Brandt also related that the use of computers in medicine has 
required that the users better define their problems, which gives them a better 
understanding of the overall situation. The same can be said about the use of 
computers in the oil industry. 

In the next 15-20 minutes, I plan to tell you a little about the Oil Information 
Center which is an integral part of the University of Oklahoma Research Insti- 

O 

tute. I will discuss the Oil Information Center: 

1 . Why and how it was established 

2. The goals and objectives 

3. How it is connected with the University computer usage generally 
and the IBM 1620 specifically 

4. What we are presently doing, and 

5. Where we are going 

I . GENESIS OF THE OIL INFORMATION CENTER 
Two independent oil men in Oklahoma, Mr. Ward Merrick, Ardmore, and Mr. 
Howard McCasland, Mack Oil Company, Duncan, were concerned about three 
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apparently unrelated situations and problem areas in Oklahoma. These three 
problem areas were: 

1 . No attempt had ever been made to gather groups of oil field related 
information on a library basis. 

2. The Oklahoma Corporation Commission needed an assist in some of 
their data processing problems and engineering calculations. 

3. The computers at the University of Oklahoma were not being utilized 
as much as could be reasonably expected by local industries, parti- 
cularly the oil industry. 

The concern of these two independent oil operators led them to the concept of 
the Oil Information Center and as a direct result they furnished the impetus by 
supplying financial assistance through the medium of their personal foundations. 
A two-year budget was set up for the initial phase of this Center. 

One obvious objective of the Oil Information Center was that sooner or later it 
must become self-supporting from earned income. It was felt by all concerned 
that these problem areas just mentioned would be the strong nucleus upon which 
the objective of self-support would be reached. 

After a series of conferences, oil industry executives and University people agreed 
that the logical central location for libraries of oil information would be on the 
campus at the University of Oklahoma. The categories of information which seemed 
desirable to collect were electric logs, scout tickets, drillstem tests, sample logs, 
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and Oklahoma Corporation Commission completion forms. The University of 
Oklahoma has been famous for years in the quality and quantity of graduates 
pointed toward the oil industry. The University has probably turned out as 
many petroleum geologists, petroleum geophysicists and petroleum engineers 
as any university in the United States. 

The Oil and Gas Conservation Department of the Oklahoma Corporation Com- 
mission needed assistance with some data processing problems. They wished to 
work directly with a group who could help them in their work, on whose in- 
tegrity they could rely and in whom they could have confidence. The Oil In- 
formation Center devised a plan to prepare computer programs to assist with 
some of these problems, and Commission representatives gladly accepted this 
plan. 

1 1 . OPERATIONS OF OIL INFORMATION CENTER 
A . Introduction to University Relations 

The actual operation of the Oil Information Center is concerned with various 
areas of effort. A major area is connected with university activities. These 
are: 

1 . The graduate program of the University of Oklahoma 

2. The Oklahoma Geological Survey, The University of Oklahoma 
Schools of Geology and Petroleum Engineering 



3. Conducting seminars on oil related topics 

4. Attracting people in the oil industry to the campus 

Geology Graduate Student 
In checking the records I found no evidence indicating that any geology graduate 
student had used the computers or plotter to assist them in their master's thesis 
work. I sought out someone who might be interested in using the computer and 
found a Humble Oil geologist, on leave from his company to do master's work, 
and who was willing to work with me. Since the geologist was not a programmer, 
arrangements were made for his programs to be written for him and through the 
cooperation of the Computer Lab his key punching was accomplished. This grad- 
uate student's thesis was on the geology of an oil field in North Central Texas. 
His study of the electric logs on each well furnished him with formation tops, 
well elevations, etc. for his study of 25 different formations. With this informa- 
tion punched into cards he was ready to use the 1620 and plotter to prepare his 
isopach and subsea calculations and his many maps. The computer program as 
written was general enough that calculations could be made for isopach thick- 
nesses, subsea formation tops, and sandsha I e- limestone ratios. This is an example 
of what can be done in working with graduate students and we hope to encourage 
others along these lines. 
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Oklahoma Geological Survey and University of Oklahoma 
Schools of Geology and Petroleum Engineering 

The Oil Information Center has attempted to work closely with the Oklahoma 
Geological Survey and the University of Oklahoma Schools of Geology and 
Petroleum Engineering. The libraries of oil field information being gathered 
by the Oil Information Center are a valuable complement to the Core and 
Sample Libraries now existing at the University of Oklahoma. The Geological 
Survey uses the electric logs, sample logs, drillstem tests, etc. in their state- 
wide geologic investigations. The Schools of Geology and Petroleum Engineer- 
ing can use the same information as teaching aids. 

Conducted Symposiums 
An important activity in the university phase of our operation is the conduction 
of symposiums. The Oil Information Center, in conjunction with our libraries 
of information and computer services, has conducted two symposiums on the cam- 
pus. One was related to our Drillstem Test Library to which we were able to 
get good industry speakers from all over the Southwest. 

The second symposium was directly connected with the Mid-Continent Well Data 
System in Oklahoma City. In addition to the speakers at this meeting, the Oil 
Information Center in cooperation with the University of Oklahoma Computer 
Lab demonstrated an information retrieval program. I shall discuss this demonstra- 



tion in more detail in a few minutes. These symposiums have been extremely 
helpful in our relationship with oil industry people, particularly on the operat- 
ing level . The sharing of new ideas and approaches is always helpful . 

Bring People to the Campus 
Directly through the efforts of the Oil Information Center a large number of 
people have been directed to or through the University of Oklahoma campus. 
Our seminar on drillstem testing attracted 148 people for two days of meetings. 
The Mid-Continent Well Data System Symposium was for one day and was at- 
tended by 65 people. 

Major oil company and consulting geologists from Tulsa, Ardmore, Norman, Ada, 
and Oklahoma City have been to the Oil Information Center libraries for various 
reasons. Major oil company representatives have also been to our computer in- 
stallations using our computer and plotter services. Others have investigated the 
services which we have to offer in order to determine how this information could 
be beneficially used by their company. 

Industry Effort 

To the best of my knowledge, this is the first industry wide effort of information 
gathering undertaken by the University of Oklahoma. Acceptance of the oil 
libraries could well lead to the establishment of the gathering of information in 
other fields of endeavor. 



Oil Industry in Oklahoma 
With the advent of oil industry data retrieval pilot studies in West Texas, the 
Oil Information Center found it advisable to conduct their own pilot project on 
the digitizing of scout tickets and a retrieval program to recover this information. 
The Autwine field in Kay County, Oklahoma, was chosen for this study for sev- 
eral reasons. The field has more than one producing zone; it produces both oil 
and water; both major oil companies and independent oil operators have wells in 
the field. Scout tickets were received on 122 wells which included some sur- 
rounding dry holes, and the information was keypunched to our predetermined 
format. 

A computer program was written for our 1410 to retrieve certain information from 
these cards. The program was written to gather certain usable groups of information: 

1. List the wells which cored the Red Fork formation, 

2. List the wells and the detailed results of all drillstem tests in the 
Red Fork formation, 

3. List the casing programs in each well, 

4. List the formation tops from some wells, 

5. List each well that penetrated the Mississippi formation, and 

6. List the details of the acid and fracture treatments on each produc- 
ing Red Fork well . 

These are some of the categories of information chosen to be retrieved for this 
demonstration. This information is typical of that which is used by the explora- 
tion geologist and the petroleum engineer in some of their everyday problems. 
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Oklahoma Corporation Commission 
Preparation of Oklahoma Guymon-Hugoton Gas Allowable Schedule: 
Due to the large amount of paper work which they process, and their general 
work load, Gas Conservation Department personnel often were two or three 
months late in the preparation and distribution of the Guymon-Hugoton Gas 
Allowable Schedule. By the time the operators of the well and the purchasers 
of the gas received the schedules they were practically of no value. 

The Oil Information Center worked as liaison between Corporation Commission 
engineers and the Computer Lab programmer so that a computer program could 
be written to calculate the monthly gas allowable for each well in the field. 
When Corporation Commission personnel prepared this gas allowable schedule 
on a desk calculator, they required approximately 70-75 manhours per month . 
After an estimated five hours of keypunching and keyverifying per month, the 
IBM 1410 makes these calculations to prepare this gas allowable schedule in 
0.4 hours per month. 

Calculate one-point back pressure test: 

An Oklahoma Corporation Commission statewide rule makes it mandatory for all 
allocated gas wells to annually report a one-point back pressure test. This in- 
formation is used in assigning per well gas allowables for the following year. 
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An estimated 1 ,800 - 2,000 of these tests are filed with the Commission each 
year and the Gas Engineer is required to check each of the calculations. The 
Gas Engi neer informed me that with no interruptions he could check five or 
six of these calculations per hour. This meant that two or two and one-half 
man-months per year was spent in checking these previously calculated tests. 
An O.U. Computer Lab programmer wrote a program for our 1410 to make 
these calculations. The 1410 processes these tests in 4.25 hours, which is a 
significant dollar saving estimated at 3-1/2 : 1 . This Gas Engineer is now 
freed to do more productive and original work for the Commission, which re- 
presents the true saving. 

B. Introduction to Commercial Applications 

Our other major effort is the industrial commercial activities. We have worked 
directly with: 

1. Major oil companies 

2. Independent oil operators 

3. Oil-field service companies 

4. Petroleum consultants 

In mid- 1963 IBM released a group of programs from their 1620 library, which 
are called the Petroleum Package. These programs were written by experienced 
petroleum engineers, geophysicists, and geologists for a rather wide range of 
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commonly encountered exploration and engineering problems. The engineering 
programs deal with primary oil recovery, secondary recovery, economic evalua- 
tions, casing design, gas production rates, flash calculations, etc. The explora- 
tion programs deal mainly with geophysics, but are also related to map contouring, 
electric log analysis, dipmeter calculations, map preparation, etc. 

In the past ten years petroleum oriented companies have become more dollar con- 
scious and overall economics have played an ever increasing part in top manage- 
ment decisions. Computers are being used more and more to funnel detailed geo- 
physical , geological and petroleum engineering information to these top manage- 
ment people for their perusal in making their decisions. 

In the recent past it was not feasible to make many groups of calculations in the 
fields of geophysics, geology and petroleum engineering. These calculations were 
known applications and approaches to their problems but were too detailed and too 
time consuming for the engineer or geologist to justify spending the time from his 
other daily duties. With the advent of computers, it became more realistic to 
consider making some of these calculations. Also, in the past, the necessary data 
to make these calculations were not gathered knowing that they would never be 
used. Such is not the case now, and it should be pointed out that the gathering 
of these data in many cases makes for a more efficient operation on all levels. 
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In several application areas the use of digital computers is becoming more 
valuable as magnetic tape recording devices are used in the field. Some of 
these instances are: 

1 . Electric logs (and their companion logs) 

2 . Dipmeter surveys 

3. Geophysical field surveys 

Many of the large oil field service companies are installing magnetic tape 
recording devices in their field trucks. This will lead to a more detailed study 
of data now being received but not efficiently used. 

However, most of the commercial work which we have done in our 1620 Lab 
is related to geophysical problems. The reason is rather obvious when the users 
were questioned. In- many instances geophysicists were not making certain 
known approaches to their problems because of the number of ma nh ours re- 
quired to prepare the data, make the calculations and plot certain information. 
The use of computers and digital plotters now makes it more practical to better 
utilize data gathered in the field by geophysical crews. 

As some of you know, a reflection seismograph crew costs an oil company be- 
tween $15, OCX) to $60,000 per month depending on the overall services ren- 
dered and the field equipment involved. As in most any other service opera- 
tion, reflection seismograph field crews can and do have certain problems. 
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If the field data are being processed on computers as work progresses, the 
errors can quite easily be rectified. However, if there is a large time lag 
between the error and its discovery, it may not be so easy to make the nec- 
essary adjustments. 

A geophysical group of a major oil company in Oklahoma City has been our 
largest user of commercial time on our 1620 and plotter. This District office 
is responsible for the geophysical work in all of Oklahoma, all of Kansas, the 
Texas Panhandle, North Central Texas and the northern 2/3 of Arkansas. In 
addition to the reflection seismograph field crews gathering new data, they 
are continually reviewing old seismic records previously shot by themselves 
or by other companies. 

One geophysicist pointed out the following, relative to the information gathered 
from 300 shot-points. The time required to hand calculate and hand plot this 
data from 300 shot-points would be an estimated two man-months. To use com- 
puters, this same amount of work would require an experienced geophysicist 
one week, another week to key-punch, one to one and one-half hours on the 
1620 for calculation, and five and one-half to six hours on the 1620 and on- 
line plotter . This represents a vast saving of time as well as money. 

One geophysicist pointed out that the use of our 1620 computer on their reflec- 
tion seismograph field data makes it possible for them to better Utilize the 
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information which can be gathered from seismic records. He said that they can 
now prepare ten to twelve useful sub-surface maps where previously they were 
fortunate if they were able to get five to six maps from a set of seismic records. 

Dan Merriam of the Kansas Geological Survey and John Harbaugh of Stanford 
University through their joint effort developed a computer program to assist in 
the location of mineral deposits. (1) Based on certain known geological and/or 
geophysical information and certain mathematical computations trend surfaces 
are fitted so that the sum of the squared deviations is the least possible value. 
The trend surface analysis may be used to: 

1 . Predict projected depths to geological units within an area, 

2. Delineate unconformities or changes in structural patterns, and 

3. Extend better "geologic guesses" into adjacent unknown areas of 
no control . 

Close agreement exists between local structural features and trend-surface resi- 
duals. The residual maps were found to stress or emphasize trend relationships 
not otherwise clearly observed from original data and to emphasize the local 
component of the structural pattern by essentially removing the regional compo- 
nent or regional dip. Inasmuch as in many regions the oil and gas producing 
areas are systematically associated with structural features, there is the possi- 
bility that a study of the residuals will indicate previously overlooked areas 
favorable for additional oil exploration. 
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The Oil Information Center plans to take advantage of the existence of this 
program but we plan to rewrite the program to use the IBM 1620 and plotter 
rather than using the printer to prepare the map. 

John P. Dowds, a successful petroleum consultant in Oklahoma City, has 
worked on the laws of probabilities and the application of statistical methods 
to help analyze the problem of obtaining commercial oil or gas production. 
Dowds, in a recent paper, stressed that "exploration geologists and geophysi- 
cists need to become statistically minded and to think of locating oil and gas 
fields as a problem in applied possibilities." (2) 

Dowds uses entropy for his mathematical model to learn of favorable trends 
and patterns in searching for logical locations for drilling new oil or gas ex- 
ploration wells . 

Dowds determined a long time ago that his calculations were too difficult and 
the number of these calculations required were too many to be done by hand. 
An Oil Information Center programmer recently wrote programs to Dowds' for- 
mulae for his entropy calculations. These are now being run on our 1620 and 
plotter. The final output to be studied for purposes of exploration is a series 
of contour maps. Dowds is representing a large independent oil operation in 
Oklahoma City in their search for sizable oil or gas reserves. 
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James M. Forgotson, Jr., research geologist with Pan American Petroleum Cor - 
po rat ion in Tulsa, said in a recent Oil and Gas Journal article that the use of 
electronic computers to evaluate electric logs is very practical. He said, "The 
speed with which these computations can be performed makes the analysis of many 
z ones or formations in thousands of wel Is practical . " Forgotson went on to point 
out that "without the aid of the computer, approximately eight manhours are re- 
quired to calculate shaliness, saturation ratio, and favorability criterion for four 
zones in one well . " He also made an interesting comparison stating that "with 
the use of computers approximately one and one-half man-months would be re- 
quired to process four zones in 1,000 wells while without the use of computers 
fifty- four man-months would be consumed . " (3) 

III. SUMMARY 

The Oil Information Center is serving a useful purpose to the University of Okla- 
homa, to the Oklahoma Corporation Commission, and to the oil industry in general 
in Oklahoma . 

With the 1410, 1620 and the plotter now in the University of Oklahoma Computer 
Lab, we are able to offer computer services to: 

1. Major oil companies 

2. independent oil operators 

3. Consultant geologists and petroleum engineers 

4. Oil field service companies 



Using the 1620 Petroleum Package of programs has proven successful up to a 
point even though the large majority of commercial time which we are able 
to sell has been to companies who have written their own programs. 
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A. History of Jet Engine Testing : 



After the first jet propelled airplane was captured from Germany by the United 
States in World War n, development of the jet type aircraft has proceeded in rapid fire 
fashion. 

The first truly great use of the jet airplane came about as a result of the Korean 
War. In a few short years since the early 1950's, the development and production of 
the jet engine has proceeded at an amazing rate. 

With the production of the first jet also came problems in the maintenance and 
overhaul of these complex, high thrust engines. At the beginning, especially during the 
Korean War, maintenance and repair was carried out in the remote airstrip locations 
and centralized repair facilities using the out-moded piston engine repair and test facili- 
ties. The piston engines had not required the highly substantial and instrumented test 
facilities that the newer high thrust jet engines were requiring; so, many of the first 
tests were performed in a crude makeshift manner. 

In the initial stages, many of the repair personnel became engine test personnel. 
Because the jet engine development had proceeded in a hurried fashion, adequate testing 
procedures were lacking; so many of the first test cell personnel found themselves pre- 
paring their own through pooling, interchanging and accumulating their experiences. 
Many of the basic principles of these early testing technical procedures are still in use 
today. Also, the great majority of today's test cells are modified piston engine of low 
thrust jet engine test cells and their instrumentation leaves a lot to be desired. Much 
of the instrumentation was installed on a "guess and try" basis. 

Since the early 1950 f s the production rate and number of jet engines in the air 
has risen considerably. With these increases also came increases in the number of 
engines to be overhauled and repaired. The test facilities in many instances have been 
updated with new instruments. The engine manufacturers have also been allowed time 
to adequately prepare better testing procedures. Even with all of these improvements 
there still remains two pressing problems. They are: (1) the large number of engines 
awaiting the testing facility and (2) the advent of the higher thrust (turbo fan, J75, etc.) 
jet engine has again outdated the test facilities. 

B. Present Test Problems: 

Because of the rapid expansion of the test facilities to accomodate the increased 
workload of jet engines and the complexities of the higher thrust engines, many problems 
arose in acquiring an adequate balance between the production and quality control functions 

These problems are presented in the following sections. They are grouped into 
areas in order to present a detailed view of each. It should, however, be noted that the 
problems actually overlap into other areas and even overlap each other. Many times a 



particular problem arises because of testing techniques, instrumentation, and the 
facilities being used. 

1. Present Testing Methods 

In order to fully understand the problems associated with the present testing 
techniques, the following is submitted as a general discussion of the overall testing 
procedure . 

The typical jet engine test cell has two or three men assigned to it. During 
the initial installation phases two men perform all necessary physical connections. 
This will include steps (a) and (b) of the test procedure. During the running/te sting 
of the engine, one of these men will control the throttle and instrumentation necessary 
to run the engine and make recordings while the other man makes the balance of the 
necessary recordings at the appropriate times and places. A third man acts as an in- 
spector. His job is to observe the readings being made and perform a reasonableness 
check on certain limits to see if recording errors have been made. He also takes ob- 
served readings and corrects them to a standard day (sea level or other) condition for 
comparison with the technical order specifications . 

On the final analysis he either accepts or rejects the engine based upon its 
performance within the limits and specifications of the manufacturer's technical 
order. As the engine is routed to test from final assembly it is complete as required 
by technical order to the final piece of safety wire. 

a. Dressdown 

Upon receiving the engine at the test area, numerous steps are necessary in 
order to prepare the engine for testing. The first step is checking for possible ex- 
ternal damage which might have occurred during transportation. The engine normally 
is assigned to a particular test cell prior to dressing for test. Special plugs, fittings, 
and some harness have to be removed in order to install test equipment. Special test 
harness is installed in order to obtain individual thermocouple readings for temperature 
spread checks. Various pressure taps are installed throughout the engine in order to 
obtain internal air, oil and fuel pressures. Engines are so designed that internal 
pressures must meet certain limits. If engine internal ratios are below values out- 
lined by engine manufacturer, it becomes necessary to change some specific internal 
clearance in order to obtain required ratios. 

The next step is to install a workhorse tailcone or afterburner. Altogether, 
there are approximately ten test fittings and adapters that must be installed in addition 
to temperature harness. Engine mounting adapters and bellmouth adapter rings are 
installed. Finally the engine oil tank is filled to capacity. This about completes the 
initial dressing. If the engine is designed for an after-burner, then an AB is attached. 
There are additional functions of preparations to be performed after the engine enters 
the test cell. 
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b. Preliminary Check 



After installation of the engine in the test stand, it is necessary to perform 
some inspections at particular times. This will include such inspections as free- 
dom of compressor rotation and making sure no foreign objects are present in the 
compressor inlet. It is necessary to accomplish this type inspection prior to in- 
stalling the bellmouth and inlet screen. If an inspection is performed after installa- 
tion of the bellmouth, it is quite easy to overlook some small item which might result 
in compressor damage. 

c. Preliminary Shakedown 

After engine is properly secured in the test stand with all pressure and 
temperature connections, attached, a complete shakedown is accomplished by a 
quality inspector. This shakedown is necessary to pick up anything which may have 
been overlooked during the engine installation. 

d. Functional Component Check 

The next step is a functional component check out. This consists of selecting 
the main fuel control emergency system, afterburner system, and anti-icing valves 
for functional operation. These checks are necessary prior to starting the engine in 
order to replace such items that may be faulty. 

e. Dry Run 

Prior to starting the engine a dry run is performed in order to flush pre- 
servative oil from the fuel components, pressure fuel and oil system. Leaks are 
sometimes found during this check. Afterwards, the dry run oil system is replenished 
and the pressurizing valve sense line reconnected. 

f. Running Prior to Acceptance 

The engine is then ready for a start. After the engine has started and reached 
idle R. P. M. a complete shakedown is made to check for air, oil and fuel leaks. If no 
abnormal conditions are found, power is advanced toward top power and preliminary 
checks are made on oil pressure, E.G.T. and vibration. 

g. Performance Runs 

After the preliminary run has been completed, the engine is ready for a per- 
formance test run. This test run consists of numerous functions in order to test the 
basic engine and its attached components as a complete assembly. 



3 

192 



Other checks that follow during the actual performance test are acceleration 
checks, simulated afterburner runs, emergency system runs, oil consumption check 
and performance calculations. 

The test run begins with an initial power advance after start to approximately 
nine thousand RPM. This is necessary in order to obtain specific data for test run 
calculations and warm up the engine oil. The engine oil must be heated to actual 
operating temperature in order to obtain valid consumption during test run. Oil tem- 
perature must be noted at the time oil level is checked on a sight gauge and again at 
completion of the test run. Oil temperature at the time of the final check must be 
within ± 2 degrees F. of the initial temperature. Oil consumption is actually deter- 
mined by visually observing a sight gauge. This sight gauge is calibrated to the 
engine oil tank and actually seeks the oil level within the engine tank. The oil level 
sight gauge is marked with ten increments to the inch and each increment represents 
a specific amount of oil. 

The data collected during the initial warm up period is used to determine the 
exact power position required for various test runs. Four power runs ranging be- 
tween seventy-five per cent and take off are required in order to help determine the 
quality of the engine . 

Test run power positions are determined by charts representing given thrust 
positions. All data from such charts represent standard day conditions biased for 
temperature variation. Actual thrust requirements are subtracted from points cor- 
responding to various power positions by using compressor inlet temperatures. Once 
having obtained required corrected thrust output, this data must be converted to actual 
time conditions. This correction is a function of present time condition variations 
from a standard day and test cell correction factors. 

Each individual run has a time duration of five to twenty minutes depending 
upon the position of power. Recordings of internal pressures from compressor in- 
let to turbine discharge are made. Temperatures of air inlet, oil, fuel and turbine 
discharge air are logged. Other recordings such as fuel flow, thrust, turbine dis- 
charge pressure, RPM and vibration are necessary. 

All data logged directly related with the functional operation of the engine must 
be corrected to a standard day condition. This data is also corrected for compressor 
inlet temperature, barometric pressure and test cell correction factors. There are 
approximately 175 calculations performed during the test run. Thirty -five points are 
plotted on special graphs in order to determine if any maximum limit has been exceeded. 
Also plot points are necessary in or,der to determine minimum RPM required to obtain 
guaranteed rated thrust. Other correction factors which are necessary pertain to the 
emergency fuel flow and cooling air ratio. Other checks of the emergency system 
consist of acceleration procedures and engine starts. Such steps are necessary in 
order to determine if the emergency system has the ability to operate properly and 
take over engine operation in the event the main system fail. 

Cooling air ratio is a necessary factor in order to determine if a sufficient 
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amount of air is being furnished to the hot section parts . If the air ratio is below 
values outlined by the engine manufacturer, damage could occur to some parts. 

h. Simulated AB Runs 

After completing the necessary performance checks, the engine afterburner 
system is simulated. The complete afterburner system is subjected to all functions 
of operation without actual firing. The method used is simply to rout afterburner 
regulator fuel back to the pump inlet. The ignitor valve will fire, nozzle control 
will function and afterburner regulator will meter fuel. This system actually is 
quite practical insofar as all fuel is returned to the inlet supply. 

2. Testing Techniques 

Jet Engine Testing has many problems associated with the techniques en- 
countered using the present manual methods. Some of these problems can be di- 
rectly associated with human capabilities and reactions during the test cycle. These 
represent man's inability to cope with the complex situations and the split -second 
decisions at a speed and with the accuracy required for maintaining a high quality 
test procedure . 

Other problems can be attributed to inaccuracies in the existing mechanical 
and electrical means of transmitting test data to the test cell personnel from its 
primary source on the engine. These problems are created because a primary 
signal in the form of an electrical pulse, voltage or current, pressures, and tem- 
peratures must be converted to a mechanical means of display for use by the test 
operator. 

a. Standard Tests 

A standard test is defined as one in which the test procedure for each type, 
model, and series engine is conducted in the same manner each time it is conducted, 
e.g. all data are gathered the same, analyzed the same, and all decisions are made 
under the same rules without variance. This does not mean that the magnitude of 
each number in the recorded data will be the same each time, but the manner and in- 
tervals at which the recordings are made remain constant. 

If an engine is tested and found to be acceptable under one set of ambient 
conditions, it should also be acceptable when tested under another set of changed 
ambient conditions. The procedure for testing after overhaul contains the necessary 
charts and calculations to correct all recordings to a standard day condition; thus, 
all data should be acceptable under the standard test limits each time it is taken, if 
it is acceptable at any one of the times. 
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Even though the testing instructions gives a description of the major pro- 
cedures to be followed in testing a jet engine, it would become an insurmountable 
task to specify to the test cell personnel all the exact steps to be taken during the 
test. 

Located at the test facility are many different operators and inspectors , 
(quality personnel). Because each man is capable of thinking and making individual 
decisions, he will conduct a jet engine test in a different manner. Because the 
technical order allows the variations in the manner in which a major test step may 
be conducted, each operator will not perform each step the same. This situation 
as well as inconsistencies in the test cell instrumentation will create many different 
techniques in testing and a possible multiple variations on the acceptance or re- 
jection of an engine under varying conditions. 

Not all of the problems associated with the Jet Engine Test can be completely 
removed by achieving the standard test alone. However, in the process of achieving 
this standard test many of the "ills" of the present method of testing would have to be 
eliminated. 

The achievement of a standard test can only be realized after correction of 
the problems in the forthcoming sections . 

b. Correlation of Test Cells 

In most test facilities there are two or more test cells . In order to obtain 
a standard set of test data on a engine test in one or more of these cells, it is 
necessary to inter -correlate the cells. 

Either a "gold plated" or standard engine that has been tested in the manu- 
facturer's cells is tested in the production cells. This process is commonly known 
as calibrating a cell . It involves running the standard engine in the production cell, 
comparing the data gathered with the instrument recordings made in the manufacturer's 
cells. This will produce a correlation or correction factor to be used with each cell. 

The correlation of one cell may require from five to eight hours to complete- 
longer if trouble is encountered. Trouble is common. Difficulties arise from changing 
cell ambient conditions (air temperature, humidity, etc.) inaccuracies of data from 
readout mechanisms, changing of test cell personnel, etc. 

The accuracy of the data acquired in a final test phase will be directly de- 
pendent upon the degree of accuracy obtained in calculations of each cells correlation 
factor. Not only are the inaccuracies involved a problem, but there are extra man- 
hours, fuel costs, and engine wear characteristics encurred. 

Rather than correlating every ninety days as is now required, X (average) and 
R (range or deviation) charts of all instrument reading deviations from those readings 
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of the production correlator engine would produce cell correction factors. This 
would allow a constant updating of the cell correction or correlating factor as well 
as indicating trending abnormalities that may be developing. Using the present 
techniques of testing jet engines; it is impossible to gather sufficient data, calcu- 
late the X and R's of the recordings, and do the correlating. 

The data recordings must be gathered and analyzed over a sufficient period 
of time to detect trending conditions. This usually involves such things as EPR's, 
EGT's, and speeds and their average and range deviations from the standard 
engine recordings. 

Even if it were possible to gather the data, the magnitude of the calculation 
and analysis is enormous and would require many manhours. 

c. Penalty Runs 

It may become desirable after either a major test or a test segment com- 
pletion, to conduct a penalty run. The penalty run would involve running a small 
segment of the test, several test segments, or the complete test. 

After the completed test and the performance calculations have been made, 
the engine results could indicate an off specification; thus, requiring the need for a 
recheck of the calculations and test recordings. 

Many times when a borderline situation exists, the inspector will call for ' 
the same recheck. Because of the inconsistency in testing methods, calculations, 
and decisions, the inspector may feel it necessary to repeat a portion of the test in 
order to gather additional data for analysis, or verification of calculations and re- 
cordings . Even when a penalty run is made , conditions may exist (the need for 
simultaneous readings) that cause the data accuracy to be insufficient, e.g. , it is 
impossible to obtain simultaneous recordings under the manual methods. Because 
the operator and inspector know of the inconsistencies that exist, several extra 
minutes or hours along with many extra gallons of fuel may be consumed in conduct- 
ing the penalty run in order to obtain sufficiently accurate data for a correct test. 

3. Instrumentation 

There are many and varied problems in the instrumentation areas . The 
sensing elements on most instruments are reliable and accurate. However, the 
actual readout mechanism is very difficult to keep within the calibration limits. 
Because most readout mechanisms present problems of nonlinearity in changing 
from one setting to another , time and manpower must be spent on a periodic 
(usually monthly or bimonthly) basis to insure accurate calibration. Many times 
an instrument can become erradic in its reading and the test cell personnel not 
become aware of it until a new calibration is made. In the mean time many "good" 
engines have been rejected and many possible "rejects" are flying or in storage. 
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4. Human Error 



Throughout the test procedure recordings are being made on a second 
timing intervals. Many of these readings should be made simultaneously, but 
because of the human inability to observe and record on a "split" second basis 
many of the readings will change by large increments before they can all be 
recorded. This is especially true during acceleration and deacceleration of the 
engine . 

Because all the instruments are not located at a 90° angle with the eyes 
of the man making the recording and because many of his recordings are made at 
a fast rate, it has been found that many recordings have been made with large 
errors (sometimes a completely gross transition error is made). A 5 lb. pressure 
error or 5% temperature error is enough in some readings to reject a "good" 
engine or accept a "bad" engine. 

5. Rerun Statistics 

If after the sequence of test events, calculations and plotting of data the 
engine does not perform according to the technical specifications it is not always 
rejected and sent to the rework area immediately. After a series of checks on the 
calculations made by himself, gross range errors on readings, or minor detectable 
instrument error, the inspector will apply his knowledge in conjunction with the 
trouble shooting points listed in the TO to diagnosing the area of trouble in the en- 
gine. These diagnostics will then be sent back with the engine to the rework area 
(overhaul line). 

If he feels that some element of doubt is present in a reading or calculation, 
portions of the test or the complete test may be performed again. This re-running 
may consist of re -trimming the engine, re -running the performance runs, or giving 
an AB function check. Many times the ability to diagnose the problem area relys 
solely upon the experience and background of the inspector in charge of the test. 
The majority of the inspection personnel have not gained this type of experience. 
Because of this inexperience, many of the engines may be re-run or rejected need- 
lessly. If the engine must be re -run several times in order to find the source of 
trouble, large quantities of time and fuel are consumed. 

If we consider the price of a complete overhaul of an engine ranging from 
$12,000 to $15,000, the needless reject of a good engine or the improper diagnostic 
of an engine for overhaul becomes an expensive waste. 

Because of the advance in design of the jet type engine year by year, it be- 
comes a large task to keep the test personnel updated on the new techniques accom- 
panying the advance design engines . During the period of time when the moderni- 
zation of the cell and training of personnel are being done, many costly errors are 
made. 
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If we consider a facility that tests 2, 000 engines per year, the annual fuel 
bill will be approximately $550, 000 per year. It has been estimated that 40 per 
cent of this fuel bill can be attributed to running reworked engines or performing 
a portion of a test over again (because of improper readings or calcuation errors). 

The preceding sections describe in general the testing procedures and some 
of its existing problems. Do not be "misled" by the seemingly simple test proce- 
dures described. There are many things not covered in as minute a detail as 
possible; also not mentioned are the many splitsecond decisions that must be made 
during the course of the test and at times when possible malfunctions occur. 

6. Capacity 

In cases of national emergency, or increased workload responsibility, the 
need for increased test capacity in the high thrust cells could develop into a major 
production "bottleneck. " 

Pressure could be relieved in these situations by creating extra shifts of 
men to handle testing and facilities maintenance; however, the increased utilization 
of the cells under the present test time and procedures would increase many fold 
the manhours of maintenance as well as cause the quality of the engines released 
to the field to be inferior because of this increased pressure. 

In either case, the cost of an increased workload under these condition^ 
can become enormous . 

7. Safety 

There are several events that could take place to endanger the lives of 
personnel working in the test cell while an engine is running. No "concrete" 
solution will be found to completely remove all these danger areas. The technical 
order regulations specify where and at what time personnel may be in the cells 
while the engine is running. Because of unusual circumstances, the rules are many 
times "bent" to fit the situation. In many of these cases, danger may be at its peak. 

Examination of the possible dangers of these situations reveals that there 
is a possibility of fuel leaks and thus flash fire while trimming. The bleed valve 
may also dump excess air overboard while decelerating. The force of this air 
can be enough to knock a man off his feet. There are also dangers from any en- 
gine part or accessories not being securely fastened and thus breaking away. 
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n. SOLUTION TO THE PROBLEM 



A. Introduction 

Some of the problems existing in testing a turbo jet engine have been discussed 
in the first section of this paper. Not all of the intangible problems were brought out, 
but inference was made to them. 

The forthcoming discussion is submitted as a possible approach to the solution 
of many of the problems that act as a plague to the efficient and correct testing of a jet 
engine . 

There are many alternatives to the degree of automation that can be applied by 
the use of a computer in a jet test cell. The primary problem rests on two factors: 
(1) What degree of control should the system have and (2) Whether the system should 
be a primary "slave" to the operator or the operator a "slave" to the computer. 

The one chosen discusses a completely closed loop operation (In this instance, 
the running of the test including start-up shut-down via an IBM 1710 Control System, 
related hardware and any special features). The advantages and disavantages of 
operating in a manual and open-loop mode as compared to the chosen approach are discuss- 
ed. 

A great majority of the following information has been derived by working with 
prospective customers in the jet engine test area; however, due to reasons which will 
not be discussed, customers' names will not be mentioned. * 

B. Previous Work 
1. Data Logging 

One of the first attempts at applying an on-line device for the logging and re- 
duction of engine test data was tried by the U.S. Naval Airforce. A special device 
for these purposes was built by Gilmore Industries (3) to perform such a function. 

The primary design of this device was for gathering piston type engine data. 
Many of these were later modified to receive data from test cells geared for jet 
engines. 

The data logger was usually located in a prototype cell where certain special 
test runs could be made . 

The data logger was primarily an analog type sensing device. Its primary 
readouts were instrument faces, graphical x-y plotting and type writer data that had 

* Contact author for further information. 
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been converted by an analog -to-digital converter to a scaled digital form. The 
number of channels or sensing and readout elements depended upon the elaborateness 
of the model ordered. The acceptance of this system was "poor" especially in com- 
mercial installations (where a few are found war surplus) where the price/perfor- 
mance ratio was much too great. 

This piece of equipment contained the same hinderances as the analog com- 
puter does. No logical ability coupled with an "exponential" increase in price for 
flexibility, plus inadequate readout accuracy. Enough of this type of gear to log 
data in one cell often times cost as much as the digital computer components to 
control multi-cells. 

2. Research and Development Jet Engine Testing 

One of the first companies to apply a computer to the role of gathering and 
reducing test data was Pratt and Whitney. The computer is an IBM 1410 with a 
special interface (Analog-to -Digital Converter) to take data gathered during tests 
conducted for research purposes. The system acts as a data monitor. It logs and 
reduces data only during the time the engine is in the performance run phases. 
Special instrumentation has been added to detect malfunction of components at 
high temperatures and fast speeds. After one test has been conducted, the instru- 
ment leads are then automatically connected to an engine awaiting test in another 
cell. 

Because the purpose of this system was to do only a data logging and data 
reduction job, no further effort has been made to perform a close -loop function. 

Cases of research and development do not readily adapt themselves to a 
close -loop operation. There are many times when extraordinary or special tests 
need to be conducted which would not be compatible with the programs that had 
been written for test. 

There are also under development in the NASA Space Program the adaptation 
of fast general purpose computer to missile checkout. This program like all other 
programs in jet engine control is in its infancy. 

3. Industrial Testing Systems - Discrete Process 

Industry has entered an era in which the processing of production and product 
performance information must be incorporated as a part of the manufacturing opera- 
tion. As the profit squeeze continues along with the need for increased production, 
the cost of manufacturing the product must be reduced to maintain or improve the 
profit position. Much has been done and is being done to reduce the cost of making 
the product through advances in technology and by automation. However, the costly 
operation of quality assurance which continues to receive more demanding tasks is 
not keeping abreast of its production counterpart. To parallel the giant step made in 
manufacturing through automation, the quality assurance program in industry has 
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made and continues to make drastic advances through in-process test and in- 
spection systems. Some of the industrial testing applications using industrial 
process control systems are: 

1. Space Vehicles - Analog to digital converter used in logging, re- 
ducing and analyzing data on space vehicles in environmental 
chambers . 

2. Potentiometers - Final testing of potentiometers. 

3. Automobiles - On-line quality control to determine defects in 
assembly as they happen. 

4. Aerospace Nose Cones - FM Tape playback of data telemetered 
from missiles. 

5. Nuclear Research - On-line recording of information from a 
spark chamber. 

6. Atomic Powered Naval Ships - On-line measurements and com- 
putation of shielding experiments . 

In general Industrial Testing with control systems controls plant test 
procedure, analyzes product test data and contributes to production test equip- 
ment the capabilities of: 

1. Testing dynamically at production speeds. 

2. Correlating the test data for each product. 

3. Determining the classification of each produced unit based upon 
specification. 

4. Sorting product unit after final test. 

5. Storing test data for future analysis. 

6. Initiating reports during production runs. 

7. Checking and calibrating of test equipment during production runs. 

8. Scheduling produced product. 

9. Determining critical trends as they develop. 

The preceding paragraphs have shown the development of automatic control 
systems in the continuous process industries and manufacturing operations involv- 
ing discrete processes. In each case one of the main objectives is increasing the 
quality of the end product. It can also be clearly seen that automatic testing is not 
an idea with unproven results but the missing link between production and quality. 

IBM Application Brief, No. K20-1725 
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Automatic Jet Engine Test Control System 



1. System Design Requirements 

In the preceding sections of this report the various phases of the actual jet 
engine test were discussed in moderate detail. These are functions performed by 
the operator, recorder, and inspector. 

The following describes the functions the control system will perform in 
regard to the various test phases. The functions are necessary to deliver a high 
quality engine with minimum cost. 

a. Control of the Independent Variables to Set Up and Sequence Tests 

The jet engine control system will select various test phases for an in- 
dividual type, model and serial number engine -use information gathered from the 
engine in the test cell, such as pressures, temperatures, flows, etc. , and deter- 
mine appropriate test sequences and procedures taken from the Technical Order 
to send control signals to the engine in the cell. 

By designing the test phases as a series of logical steps, the system will 
use each test phase as a sub-program and execute the over-all series of sub-programs 
under control of a master monitor routine. 

b. Data Acquisition and Control 

Each instrument pick-up will be connected to a transducer which will be 
connected to a transducer which will be connected to a multiplexer and terminal 
unit which will be connected to an analog -to -digital converter. The analog -to- 
digital converter will provide a digital voltage to the control system main frame. 
The main frame will scan all instrument leads for each pressure, temperature, 
flow, etc and convert these by the use of equations into meaningful engineering 
values. These values will then be used to control the system. 

The system will also convert a digital value to an analog voltage for control 
of the throttle, trimmer and other relay switches in order to control the speed, 
thrust, fuel flow, and other controllable variables. 

c. Calculation of Performance Parameters 

After gathering all data (instrument readings), one of the test phases will 
correct all data to a standard day (usually sea level) condition in order that all 
parameters may be compared against the T. O. limits for trimming and reject 
status . 
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d. Operator Guide for Engine Adjustment 



Such things as warning messages, trim guides, test status, etc, will be 
logged for the operator. Any transducer reading will be available upon operator 
demand. 

Any time the engine must be stopped or shut down by the control system, 
a message will be logged on the typewriter giving the reason, a complete diagnostic, 
and recommendations for repair or rework. 

e. Automatic Instrument Calibration 

This can be done by either or both of the following: 

1. Comparison of a known standard signal with the transducer output from 
this signal. 

2. Comparison of the transducer output to other related signals. This will, 
in essence, tell if the signal is abnormal (too high, too low, or fluctuating) 
From this an automatic calibration can be done. This will insure against 
catastrophic results from a faulty transducer. 

f . Check Calibration of Installed Engine Transducers 

Many pick-ups are installed on the engine during dress -down, thermo- 
couples, tachometers, etc. It is possible for one of these to be faulty (disconnect - 
tion or off specification in the thermocouple not detected during test) . By using 
the calibrate feature, control system abnormalities maybe detected before the 
actual test. 

g. Conduct Penalty Runs 

After the major test phases are completed and the acceptability of the engine 
is ascertained, it may be necessary to re-conduct portions of the major test or call 
upon special penalty run procedures to be executed. This need arises when certain 
T. O. limits have been exceeded or an engine has been accepted on a marginal con- 
dition. This will insure correctness of data and calculations as well as insuring 
that an out -of -limit condition was not a transient. The ability to automatically se- 
lect and execute these routines under control of the automatic system will improve 
both speed and accuracy of the over-all test. 

h. Engine Diagnostics 

During the running of a sub -portion of the test or after completion of the 
major test, conditions may arise that will indicate off specifications in the engine 
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or one of its components. By gathering data at high speeds, using past historical 
data on engine rejects, failure incidents and rework data, and building a series 
of logical steps or a mathematical model of certain sections of the engine, it will 
be possible to determine the exact cause of the abnormality and make recommen- 
dations for repair. 

There will be a learning process by the system. As more and better data 
is gathered, the logical model will improve. 

The ultimate aim of the system is to furnish complete re -work information 
to the engine penalty line. In many cases, this will save time and prevent unneces- 
sary rework of an engine. 

i. Logging and/or Punch -Out of Test Data and Engine Data 

After a major test has been completed, all instrument readings, calculations, 
and diagnostics remarks will be stored on the disk storage unit. The operator in the 
cell control room will execute a request to the central control system room via the 
manual entry control. The control system then will print a completed log or run 
sheet giving the three items above for each test phase. 

The log maybe used by the operator to select penalty or re -runs if it appears 
that a componen t or recording is marginal to the limit. 

Several carbon copies may be produced so that copies maybe sent to all au- 
thorized personnel. 

An engine data plate card will be printed to accompany the engine and a mili- 
tary run data card punched for Quality Analysis. 

j. Store Test Programs and Parameters for All Type, Model and Serial Number 
Engines 

The control system will use a mass random access unit for storage of the 
test parameters and limits for all engine models, types and serial number that will 
be tested. This type storage insures immediate access to all types of engine pro- 
grams for complete asynchronous testing and control for the test facility. 

Mass storage will allow the system to be open ended for expansion to future 
cells. By the use of this mass storage, a better and more complete engine diagnostic 
can be performed (as pointed out in the previous section). The system will be de- 
signed to allow the updating of all engine technical orders on a daily basis . 

As a secondary function, statistical data will be stored for analysis. By 
storing summary data, critical trends can be detected early. All causes for rejects 
or defects can be stored by type, model, and serial number. Summary data will be 
quickly available upon management request. 

15 



k. Detect Emergency and Unsafe Conditions and Take Appropriate Action 

The fast instrument scanning speed of the control system permits dangerous 
trends to be detected in many of the instrument readings and appropriate corrective 
action to be initiated to prevent occurence of out -of -limit conditions. In out -of - 
limit situations, the system will quickly bring the test and engine to a halt to prevent 
serious damage. 

One of the most important things to consider when designing the actual con- 
trol system is achieving a high degree of reliability. Two types of failures can occur. 
The failures and corrective actions are: 

Type I - Transient Failures 

These are internal system transmission errors and occur on a transient 
basis. In this case, the system will record the failure and try twice more to per- 
form the operation. The recording will be used by maintenance engineers for re- 
gular preventive maintenance (once per week) . A transient type error will usually 
be eliminated in three attempts. 

Type II - Complete Component Failure 

In this case, the system will try to by-pass the bad component switching to 
manual control or bring the engine to a safe stop. A by-pass procedure will be in- 
corporated for emergency action. 

1. Quality Analysis 

1) The system will use store data to perform reliability calculations for engine 
and individual components. 

2) The quality analysis will produce data assurance for a better test engine, 
m. Production 

1) Scheduling - Using advanced techniques such as linear programming, a 
master plan will be prepared for scheduling the cells. 

2) Planning - Better methods of machine and manpower utilization can be pre- 
pared. 

2. Control System and Interface Description 

To approach the problem of determining the necessary hardware, one must 
keep three factors in mind. They are (1) design functions as determined in the meeting 
of section 1 (2) instrumentation -present and future, (3) and layout of the basic test 
cell. 
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If we notice the basic test cell layout as shown in illustration 1, it shows 
the location of the control room as being between two test cells. If there are 
more than two cells (there are usually several more) then it is logical there will 
be two or more control rooms. Because a typical control system will control 
more than two cells, it will be necessary to locate the computer in either a re- 
mote location or in the rear of one of the test cells. When this is done, there 
arises necessity for remote communication devices. 

Attention should be drawn to the design function to operate in conjunction 
with this communications device. Whether the operator or the central computer 
system is the "slave". It will be necessary to place a device for the operator 
(inspector, etc.) to select the particular test function he wishes to perform. It 
will also be necessary for him to get return information from the instrument 
readings, pertinent calculations and emergency or troubleshooting messages. 

Many times it will be necessary for the test cell foreman to have information 
concerning phases of test of engines in each cell in order to coordinate the overall 
movement of engines in test. He will also need access to stored statistical infor- 
mation pertaining to reject, re-run and other engine test functions. Many times 
upper level management will inquire of the cell foreman on these statistics. Things 
that could be available on an inquiry basis would be: 

1. Number of rejects/month on a certain model number. 

2. Major cause of rejects. 

3. What was done for correction. 

4. Ranges and standard deviations from set standard operating limits. 

5. Etc. 

Using the system described in illustration 2 and treating the requirement as 
8 test cells , each component and its function will be discussed. 

a. Central Computer (1620 Model II) 

Because of the speed needed to accomplish the sampling of the necessary in- 
strument leads , making all necessary calculations, actually sending output signals, 
for control and receiving feedback input signals for correction, the 1620 Model n 
with a 60, 000 position memory was chosen. The 1620 as the heart of the 1710 Control 
System contains the necessary machine instructions and programming systems (Exe- 
cutive System-e.g. , monitor) to operate in conjunction with an asynchronous test 
system design. " 

b. Auxiliary Storage (2-1311 Disc Files) 

Even though the majority of the skeleton test functions are the same for all 
engines, there still remains different test parameters for each engine model. Each 
of these parameters must be stored for immediate access. Because no central com- 
puter memory would be large enough to contain all test program phases, these must 
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also be stored for immediate access as they are called by the skeleton control pro- 
gram. Also contained in auxiliary storage would be necessary diagnostic routines 
available upon request, as well as emergency limit and correction routines. 

A second disc file would be used as in intermediate store area for input/ 
output information, if all input/output devices are busy and they would be available 
to store quality and production control data gained as a by-product of each test. 
This data would be available upon inquiry from management. 

c. Interface Equipment (1711 and 1712 T s) 

In order to attach all necessary points for 8 cell (see Appendix B) and con- 
vert the analog (electrical) signal into a digital form in a sufficient time period, the 
analog to digital converter (1711) has the ability to convert 200 points/second. In 
order to handle all necessary analog input points, analog output points, contact in- 
dicating and operating relays for an eight (8) test cell facility, it is necessary to 
have three (3) multiplexing and terminal units (1712 T s) to the system. 

d. Test Cell Input/Output Gear (1713, 1715, 1717) 

Located adjacent to each instrument control panel will be an IBM 1713, 1715 
and 1717. 

The operator will have the option with the IBM 1713 manual entry device - 
through a set of coded instructions -to dial in either the command for a complete 
test or portions of a test. The command will be dialed through the use of twelve (12) 
rotary knobs with zero (0) to nine (9) selection ability. 

An enter key will be hit, the information will go via the SIOC channel and 
interrupt the computer, the computer will read the rotary knobs and start the pro- 
cessing. 

e. Interface 

All instruments that furnish an electric signal of a standard form will be 
sent via shielded cabling to the 1712 multiplexing unit, all non standard (pulsed, etc) 
and pressure type signals will be transformed via transducers (in the test cell 
control room) to an electrical form and sent to the central system complex. 

All pickup signals from the engine are easily adjusted to the standard 1710 
signals; however, more specialized servos must be bought or designed to control 
the throttle and trimming mechanism. There are several types of stepping motors 
or feedback systems on the market today that can handle these tasks. 
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All existing cell instruments will remain intact as manual back-up for the 
system. Through a specially designed panel, the operator will be allowed the 
option of switching to either automatic or manual system at any time. 

m. ECONOMIC JUSTIFICATIONS 

The justifications for considering the "Control Systems Approach to Jet Engine 
Testing" can be broken into tangible, intangible and possible savings categories. The 
justifications can vary depending upon the application. Some of each are listed as 
follows: 

A. Tangible 

1. Increased Engine Throughput: 

This can be accomplished by 

a. Simplifying the testing procedure. 

b. Decreasing delay in such things as trimming and shakedown. 

c. Operator Guide Print -Out for prompt emergency and testing actions. 

The best time estimate for engine throughput with no major hindrances is 
5 hours 55 minutes. As previously mentioned, the average throughput is approxi- 
mately eight (8) hours for an engine with time running up to twelve (12) hours if 
there are several re-runs or persistent trouble exists. 

The control system would increase the capability of the cells to take on 
added workload without added facilities. This need would arise in wartime emer- 
gency for federal customers and with added contractual obligations for both com- 
mercial and federal. 

2. Reduced Manpower Requirement/Engine 

This would free inspection and operating personnel for a greater engine 
throughput. One operator would be substantial for testing procedures, where the 
present system utilizes an inspector and two (2) shops or production personnel. 

3. Avoiding Re -Run of Engines 

a. By eliminating bad instrument calibration —erroneous transducer signal. 

b. Bad instrument reading —can be eliminated. The signal will originate com- 
pletely at the transducer and eliminate the nonlinearity of the instrument 
read -out mechanism. Operator error in reading will also be eliminated, 
e.g. , simultaneous reading of instruments. 
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4. Decreased Ftiel Costs 



This can be saved with automatic trim procedures and avoidances of excess 
penalty runs . 

5. Decreased Calibration Costs 

By automatically calibrating the transducers the computer will give a 
correction or tare factor for the back-up reading devices. The time between cali- 
brations will decrease. The maintenance costs will correspondingly decrease. 

Intangible's 

1. Better Engine Quality 

a. Better checked out engines through more certain detection of off -specification 
units. 

b. Simultaneous recording of the instruments, thus insuring proper data for checking 
limit parameters. 

c. Consistent methods of testing, thus insuring proper acceptance or rejection of an 
engine . 

2. Decreased Re -Work Costs Through Better Diagnostics 

As mentioned previously, the system with its on-line mass storage can furnish 
pinpoint diagnostics to eliminate complete overhaul for minor abnormalities or de- 
fects . 

3. Data Assurance 

This assurance can be derived through getting simultaneous readings or re- 
liability in instrument calibration and will result in better customer (the pilot or 
branch of the armed services) satisfaction. 

4. Increased Safety for Personnel, Equipment and Property 

5. Increased Readiness Program on First Line Aircraft 

6. Reduced Paperwork Handling 

Complete and accurate unit performance logging. Here we have better customer 
satisfaction through hard copy records . Diagnostics are automatically printed to be 
sent back for re -work. 
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IV. SUMMARY AND CONCLUSIONS 

This paper has attempted to discuss one particular approach to the application 
of a digital computer to the closed loop control of a jet engine test cell. 

As has been pointed out, there are many approaches to consider in designing a 
system for a particular application. In summary, the things that must be considered 
are repeated and listed as follows: 

1. Degree of Control Desired -Open or Closed Loop 

2. How Much the Operator is "Slave" to the Computer or Vise Versa 

3. How Many Test Cells Must Be Controlled Simultaneously 

4. The Functions that the Customer Wishes the System to Perform 

The justifications for a control system can be varied, depending upon what the 
customer wishes to accomplish; however, the "state of the art" of automatic control 
in jet engine testing is in its infancy and there are many justifications in all cases. 

It should be pointed out that the general approaches and ideas used are appli- 
cable to many other industries and are not limited to jet engine testing. 



23 



21 



BIBLIOGRAPHY 

Industrial Testing Systems at the IBM Components Division 
Poughkeepsie, New York . 
Application Brief, No. K2 0-17 25 

Sales Guide Industrial Testing Systems 
IBM Internal 

Introduction to Control Systems 
General Information Manual F26-5577-0 



24 



good/year 

GOODYEAR AEROSPACE 

CORPORATION 
ARIZONA DIVISION 

LITCHFIELD PARK ARIZONA 



GENERALIZED FILTER NETWORK 
A/C STEADY STATE ANALYSIS PROGRAM 



by 

D. Ho O'Herren 



AAP-18911 



May 7, 19&h 



o 

TABLE OF CONTENTS 

Page 

I Generalized Filter Network A/C Steady State 

Analysis Program . . . 1 

II Program Input Data 6 

III Sample Problems • 8 

a. Sample Problem 1 . • • 8 

b. Sample Problem 2 11 

o. Sample Problem 3 16 

d. Input Data Problem 1 o 22 

e. Output Problem 1 23 

f o Input Data Problem 2 .... * 2k 

g. Output Problem 2 25 

h. Input Data Problem 3 o 27 

ie Output Problem 3 • • 28 

IV APPENDIX A . . . o 30 

V Listing of Fortran II Source Program . . • . o . . • • 38 



2U -i- 



GENERALIZED FILTER NETWORK 



A/C STEADY STATE ANALYSIS PROGRAM 



This program has been written to make possible comprehensive surveys of 
theoretical filter designs. It opens up a more sophisticated range of 
filters to theoretical consideration and evaluation. The program input 
is general enough that almost any filter network consisting of cascaded 
inverted-L or symmetrical lattice sections may be handled easily. 

The minimum machine requirements are a 1620 with I4O K core storage, auto 
divide, and indirect addressing. The source language is Fortran II. 
There are 6 subprograms plus the mainline program. 

Filter design has been speeded in recent years with the advent of tables 
of normalized low-pass filter element values . Even if these tables are 
used, this program allows the designer to compute the effects of component 
tolerances, finite Q»s, and mismatched terminations. These introductory 
remarks have centered around filter design, but it will be apparent that 
the program is useful for analyzing any RLC network, e.g., amplitude or 
phase equalizers. . * 

The filter designer needs to know how a proposed design will perform over 
a particular range of frequencies before making recommendations to those 
who will implement the design. Manual calculations of the desired perfor- 
mance parameters over a range of frequencies can be quite tedious and are 
highly subject to human error. The problem is complicated because theoret- 
ical calculations do not always reflect the actual performance, particularly 
at higher frequencies due to stray reactances. The net result frequently 
is that a minimum number of proposed designs are evaluated at a few pertinent 
frequencies from which data plots of parameters versus frequency are made. 
Curve definition is rarely good, making it virtually impossible to compare 
proposed filter designs on important fine points. 

^For example, see 196b Microwave Engineers ' Handbook, pp. 91-°£, Horizon 
House -Microwave, Inc , Pedham, Mass. ? i [ t 
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This program will evaluate theoretical performance of filters over as broad 
a range of frequencies as desired giving precise values of the performance 
criteria. The net result is excellent definition of a greater number of 
performance curves in much less time. The designer is freed of computational 
drudgery and may consider more sophisticated designs without concern for 
the difficulties of manual evaluation. 

The parameters computed by the program are insertion loss, impedance, input 
voltage phase angle (phase shift), and time delay (envelope or group delay) 
Insertion loss is defined as that loss resulting from inserting a given four 
terminal filter between the input and output terminals of a network where 
the output is non-reactive and the input can be a complex impedance driven 
by a voltage signal source. The phase angle of the input voltage is referenced 
to the voltage across the output terminals whose magnitude and phase are ar- 
bitrary. The impedance calculated is at the input of the filter looking toward 
the output and is in rectangular form. 

The program is based upon a report titled "Electronic Digital Computer Analysis 
of Cascaded Networks" by R. H. Tuznik and D. H. Wood of Westinghouse Electric 
Corporation. The report presents a method of defining in general terms a 
filter network and then, through recursion techniques, computing the impedance 
and voltage at the filter input for any desired frequency. 

The program can handle networks having either basic ladder or symmetrical 
lattice sections. These sections consist of and Zg basic section impedances 
as in Figure 1. 

A maximum of four different sections in cascade can be handled. This is a 
limitation imposed by core storage. Mote that the program will process a 
group of from one to four cascaded sections any desired number of times. 
Thus it is possible to analyze a filter consisting of four repeated groups 
of four cascaded sections by setting NCYCL, a program input variable, to four. 

A section impedance Z. or Z D as in Figure 1 can be as simple as a single 
element or as complex as in Figure 2. 

A basic section impedance may consist of from 1 to 3 orders each of which 
may be as complex as above or as simple as a single element. The maximum 
number of parallel brauchci in an order as well as the maximum number of 
orders again are limited by available core storage. 
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The program positions the filter to be analyzed between an input and output 
termination as in Figure 3. 

The input termination may be as complex as shown or a single element. The 
output termination R Q must be a pure resistance. V Q is an input variable 
and usually is set equal to 1 volt at zero phase. The program computes V^, 
the phase angle of which is used to determine time delay. 

The designer may desire to analyze a proposed filter for a frecuency sensitive 
network. The frequency sensitive network must be representable in the form 
shown in Figure 3 as the input termination. Another way is to include the 
frequency sensitive network as part of the filter with a single resistance 
as the input termination. The first way has the advantage of allowing the 
NCYCLE variable to be other than one. 

The program begins by reading cards with the following information i 

1. Frequency range including maximum, minimum, and increment. 

2. Output termination resistance and voltage. 

3. Number and type of cascaded sections in filter. 
k. Number of times filter sections are to be cycled. 
5>. Filter section element values. 

6. Input termination element values. 

The program immediately punches out cards with these values. Then com- 
putation begins at the output termination and progresses section-by-section 
toward the input termination. Complex impedance and voltage necessary to 
produce the output termination conditions are calculated at the input of 
each filter section and so on recursively to the input termination.- 

The recursion equations programmed are for inverted -L or ladder sections 

and symmetrical lattice sections. These are in separate subprograms named 

LADDER and LATTICE respectively. These will be outlined in Appendix A. 

The program could be expanded to handle other types of basic sections such 

as the tee, bridged-tee, pi, etc., by writing additional recursion subprograms. 

Cert ain of these types of sections can be rearranged into ladder sections 

for evaluation with the existing program. 

Examination of Figure 1 suggested a programming short cut. Both types of 
basic sections consist of two-terminal basic section impedances as in Figure 2. 
A single combination of two subprograms is used to compute these impedances. 
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The first, DRPTZ (Driving Point Z) computes the immittances of an order. 
The second, ORDER, combines the immittances into the basic section impedance. 
When the first order of a particular basic section impedance has been 
processed, the program begins with the first order of the second basic 
section impedance Z_. When all orders of a particular section have been 
processed the program shifts control to the appropriate recursion subprogram 
LADDER or LATTICE. All basic sections in a particular filter must be 
either inverted-L or symmetrical lattice type. 

DETAILED DESCRIPTION OF PROGRAM INPUT DATA 

Program input consists of four categories of cards which must be input in 
the order following for each network to be analyzed. 

1. Title Card. 

2. Frequency and Output Termination Card. 

3. Basic Section Data Cards 
km Input Termination Cards 

Note that jobs may be stacked. 

Title Card 

Any 80 alphanumeric characters for Identification of output. 
'Frequency and Output Termination Card (F11.5 format) 



Cols. 






1 


- 11 


FttEN 


- Minimum frequency in megacycles. 


12 


- 22 


FUEL 


• Frequency increment in megacycles. 


23 


- 33 


FMAX 


- Maximum frequency in megacycles. 


31* 


-■I* 


ZOR - 


Output termination resistance in ohms. 


1*5 


- 55 


VOR - 


Output termination voltage (real part) in volts. 


56 


- 66 


VOI - 


Output termination voltage (imaginary part) in volts. 



Basic Section Data 

This data describes the basic filter sections. Data should be input section 
by section beginning at the section nearest the Output Termination. 
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Inverted-L (Ladder) Sections 

Preliminary Card (l5 format) 
Col. 

$ NSECT - Number of filter sections (Max. of four). 

10 LETTR - Must be two. 

l£ NCYCL - Number of times basic sections are used. 

Order Card (iS format) 
Col. 

$ IORD (K) - Maximum number of orders in Z A or Zg 

impedance of K th section. Maximum of three. 

Resonator Card (l£ format) 

One card for each pair of Z A and Zg orders. Thi* card must immediately 
precede the Z A and Z g parameter cards. 

Col. 

5 MP - Number of resonators (parallel branches) in Z A# 
10 - Number of resonators (parallel branches) in Z g . 

Z Parameter Cards (ELh.8 format) 
A 

One card per MP resonator specified on preceding resonator card. 
Cols. 

1 - lli C - Capacitance in Farads. 
1$ - 28 AL - Inductance in Henries. 
29 — U2 R - Resistance in Ohms. 

Z Parameter Cards (EII4.8 format) 
B 

One card per MQ resonator specified on preceding r e senator card. 
Cols. 

1 - lb C - Capacitance in Farads. 
V-> - 28 AL- Inductance in Henries. 
29 - 1*2 R - Resistance in Ohms. 

Symmetrical Lattice Sections 

This data is identical to Inverted-L data except that LETTR on the pre- 
^ liminary card in Col. 10 must be 1 and resistive pi pad parameters must 

be input. The card for the pi pad between the output termination and 
the first basic section must follow the preliminary card. Cards ^for ^ 



pi pads following basic sections must follow the Order Card. 
Pi Pad Card (EII4.8 format) 
Cols. 

1 - Hi RA - Resistance of pad shunt arms in ohms. 
15> - 28 RB - Resistance of pad series arm in ohms. 

SAffPLE PROBLEMS 

Three examples will be given, one of which will be quite simple and the 
other two slightly advanced. 

Sample Problem 1 

This problem will Illustrate the input for a simple inverted-L (LADDER) 
filter network. 

Given the two-section ladder filter in Figure h with element values as below, 
calculate filter parameters from 1.0 mc to 10 mc with a step of 1.0 mc. 
Use output voltage of 1.0 volts at aero angle as reference. 

Output Termination 

R ■ 50 ohms. 

o 

First Ladder Section 

R^ • 1000 ohms 
C 1 • 1.0 uf 
^ • 2.0 uh 

Second Ladder Section 

Rg " 100,000 ohms 
C 2 - .01 uf 
L 2 • 1.0 tin 

Input Termination Section 

Rj ■ 5>0. ohms 

Preparation of Input Data - Problem 1 

Title Card 

Sample Problem 1 - Network Analysis Program - Date 
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Frequency and Output Termination Card 

Cola. Value 

1-11 1.0 Minimum Frequency (mc) FMIN. 

12 - 22 1.0 Frequency Increment (mc) FDEL. 

23 - 33 10.0 Maximum Frequency (mc) 

3b - hh 50.0 Output Termination Resistance (ohms) ZOR 

1*5 - 55 1.0 Output Termination Voltage Real Part (volts) VOR 

56 • 66 0.0 Output Termination Voltage Imag. Part (volts) VOI 

Basic Ladder Section Cards 



Preliminary Card 
Col. Value 



5 2 Number of filter sections 

10 2 Ladder section signal 

15 1 Number of times basic sections are used 

Order Card (First Section) 

Col. Value 



5 1 Maximum Number of Orders in First Section 

Resonator Card (First Order) 
Col. Value 

5 1 The only order of the Z^ Impedance of the first 

section has a single resonator. 
10 1 The only order of the Z p impedance of the first 



section has a single resonator. 



Z. Parameters Card 
A 



Cols. Value 



1 - Ik + .10000000E-05 Capacitance in Farads - C^. 
15 - 28 +.OOOOOOOOE-99 Inductance in Henries 
29 - h2 +.1000000GG+Oli Resistance in Ohms - R^ 

NOTEi There is only 6ne Z^ parameter card for the first 
section because there is only one resonator. 
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Zg Parameter Card 



Cole. 



Value 



♦.00000000E-99 
♦ .20000000E-05 



1 -U4 
15 -28 

Order Card (Second Section) 

Col Value 



5 1 
Resonator Card (First Order) 
Col • Value 



10 



Z, Parameter Cards 

A 



Cole. 

1 - 111 

Cols. 

1 - 111 
15 - 28 
29 • ii2 



Value 

♦.10000000E-07 

Value 

♦ .OOO000O0E-99 
♦.0000000CE-99 
♦.10000000E+06 



Zg Parameter Card 



Cols. 

1 - III 
15 - 28 



Value 

♦.OOOOOOOGE-99 
+.10000000E-05 



Capacitance in Farads 
Inductance in Henries - L^. 



Maximum number of orders in second section. 



There are 2 resonators in the only order 
of the Z A impedance of the second section, 
Ihere is 1 resonator in the only order of 
the Z_ impedance of the second section. 



Capacitance in Farads - Cg. 

Capacitance in Farads 
Inductance in Henries 
Resistance in Ohms - Rg. 



Capacitance in Farads 
Inductance in Henries - Lg< 



Order Card (Input Termination) 
Col. Value 
5 1 



There is a single order in the input termination. 
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Resonator Card (First Order) 
Col. Value 

* 1 There is one resonator in the input termination 

and it Is treated as a Z A type impedance. 

10 No Z B resonators. 

Z A Parameter Card 

Colg* Value 



1 - Hi +.00000000E-99 Capacitance in Farads 
15 - 28 *.OOO000OOE-99 Inductance in Henries 
29 - h2 + .50O00OOOE*02 Resistance in Ohms - ^ 

This completes the injwt data cards for sample problem 1. A listing of 
these cards is found on Page 22. A listing of the output is found on Page 23. 

Sample Problem 2 

This problem will illustrate the input for a two section symmetrical lattice 
filter network. 

Given the network in Figure $ with two eyMnetric.1 lattice eectione separated 
by resistive pi pads: 

Output Termination 

R Q - 100 ohms 
First Pi pad 

RA - 10000 ohms 
RB Q - £ ohms 

First Section 

c l 30 ^if 

C 2 - .02 jif 
*»3 - .1 (ih 

Second Pi Pad 



RA X - 10000 ohms 
>RB^ - 5 ohms 



2 2 /*_ u . 
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Second Section 

- 300 p^if 

Third Pi Pad 



RAg - 10000 ohms 
RB^ - 5 ohms 



input Termination 
R T - 100 ohms 

The system in Figure $ is to be evaluated over a range of frequencies from 
$0 to 100 megacycles vith 2 megacycle steps. The program always computes 
the same type of Information, namely impedance, phase angle of V ± , Insertion 
loss, and time delay. 

Preparation of Input Data - Problem 2 
Title Card 

Sample Problem 2, Network Analysis Program - Date. 
Frequency and Output Termination Card 



Col8. 


Value 




1-11 


50. 


Mln. Freq. in Mc. 


12 - 22 


2. 


Delta Freq. in Mc. 


23 - 33 


100. 


Max. Freq. in Mc. 


31* - lib 


100. 


R in Ohms, 
o 


US - Hi 


1.0 


V in Volts (real part), 
o 


$6 - 66 


0.0 


V in Volts (imag. part). 





Basic Lattice Section Cards 
Preliminary Card 
Cola. Value 

5 2 Number of filter sections. 2 2 6 

10 1 Lattice section signal. 

15 ; i Number of times basic sections are used. 



First PI Pad Card 
Cols. Value 



1 - 111 ♦.10000000 E>05 RA in ohms 

o 

15 - 28 +.50000000E +01 KB In ohms 

o 

Order Card (Firet Section) 
Cola. Value 

5 1 Maximum Number of Orders in Section 

Second Pi Pad Card 
Same as First Pi Pad Card 
Resonator Card (First Order) 

Col Value 

5 1 A single resonator in Z A# 

10 2 Two resonators in Z_. 

Z . parameter Card 

A 



Cols. Value 



1 - 111 ♦.30000000 E-10 Capacitance in Farads - C^« 



Zg Parameter Cards 



Cols. Value 



1 - 111 +.20000000 E-07 Capacitance in Farads - C^. 
Cols. Value 



1 - Hi ♦.00000000 E-99 Capacitance in Farads. 
15 - 28 +.10000000 E-06 Inductance in Henries - 

Order Card (Second Section) 

Cols. Value 

5 1 Max. Number of Orders in Section. 

Third Pi Pad Card 
Same as First Pi Pad Card. 



Resonator Card (First Order) 
Cols. Value 



10 



A single resonator in Z^. 
Two resonators in Zg. 



Z. Parameter Card 

A 



Col. 



Value 



1 - lii + . 30000000 E-09 Capacitance in Farads - C^, 



Z_ Parameter Cards 

B 



Cole. Value 

1 - 1h +.1|0000000 E-06 

Cola. Value 

1 - lii +.00000000 E-99 

1$ - 28 ♦.1^000000 E-06 



Capacitance in Farads - C^. 

Capacitance in Farads. 
Inductance in Henries - L^. 



Order Card (Input Termination) 
Col, Value 

5 1 Maximum of One Order allowed in Input Termination. 

Resonator Card (First Order) 
Col. Value 



5 
10 



There is one Z. Resonator in the Input Termination. 
A 

The Input Termination Cannot Have A Z^ Resonator. 



Z A Parameter Card 



Cols. Value 

1 - U4 +.00000000 E-99 

15 - 28 +.00000000 E-99 

29 - h2 +.10000000 E+03 



Capacitance in Farads. 
Inductance in Henries. 
Resistance in Ohms R^. 



This completes the input for sample problem 2. A listing of these cards is 
on page 2I4. The resulting output is on page 2$. 
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Sample Problem 3 

This problem will illustrate three features not displayed by the previous 
problems, namely the use of NCTCL for multiple usage of a group of cascaded 
sections, the use of a section having 3 orders, and a complex input termin- 



This filter has a repeated group of two sections, that is, the First and 
Third Sections are identical, also the Second and Fourth Sections. The 
block labeled Z3 represents the two-terminal three-order impedance shown 
in Figure 7. The frequency range of Interest is 5> to 100 Mc in steps of 
£ Mc. 

Element values are as follow: 

Output Termination 

R - 100 Ohms, 
o 

First Section 



ation. 



C 1 - 1 \sX 




R - 1000 Ohms. 



Second Section 



- 1 uX 




.005 



R^-100 Ohms 
R or >- .1 Megohms 



2 2!) 



• " 'iirr • 




FIGl'HF. * - SW1PLF. PROPLFM 3 



Z3 - 



14 



■13 



r J W*r- rrrrx -\ 



12 "11 



I 1 | ^/\^- — 



OPOFP 2 



C t7 



ORDER 3 
L 15 




ORPF.R 1 



KK.IliF " - ivPFnWf IN <V"<\ ■■ PKOI'l.FM 



2 3 II - 17 ' 



Sample Problem 3 (Continued) 

For simplicity the output voltage will be assumed 1.0 volts at zero phase 
as before. The input to this problem is fairly complex but the fact that 
the first two sections are repeated in the next two sections .means that only 
the first two sections must be input. Setting the NCYCL input variable equal 
to two (2) causes the program to process the two-section group twice before 
starting on the input termination. NCYCL can be set to any positive integer 
(less than 999). This feature can be used with either inverted -L or 
symmetrical lattice sections. As the program is written, the group of 
sections which is repeated can include a maximum of four (h) different 
sections. Only a single group can be in any one filter and the repeated 
group cannot be preceded or followed by any other sections excepting the 
input and output terminations. The three-order impedance Z3 in Figure 7 
illustrates the complexity permitted by the program for all of the Z A or 
Zg type impedances in any or all basic sections. The complex input termin- 
ation could have included three elements in each parallel branch or resonator 
but cannot exceed a single order. 

Data Preparation for Sample Problem 3 

Title Card 1 

Sample Problem 3, Network Analysis Program - Date 
Frequency and Output Termination Card 



Cols. 


Value 




1-11 


5.0 


Min. Freq. Mc 


12 - 22 


5.0 


Delta Freq. Mc 


23 - 33 


100.0 


Max. Freq. Mc 


3h - hh 


100.0 


R in Ohms 




ii5 - 55 


1.0 


V c (Real Part) in Volti 


56-66 


0.0 


V Q (imag. Part) in Volt 



Basic Ladder Section Data Cards 
preliminary Card 
Col Value 



5 2 There are two different sections to be repeated. 

10 2 Ladder Section Signal 

l£ 2 Cycle the two sections twice. 2 3 1 



Order Card (First Section) 
Col, Value 

•> 1 Max. Number of Orders. 

Resonator Card (First Order) 
Cols. Value 



10 



1 
1 



Number of Resonators in Z 
Number of Resonators in Z 



Parameter Card 



B 



Col. 
1-11, 



Value 



+.100 00000 E-05 



Farads. 



Zg Parameter Card 



Cols. 



Value 



in Ohms. 



1 - lh +.00000000 E-99 
15 - 28 +.00000000 E-99 
29 - 1*2 +.10000000 E+Oii 

Order Card (Second S«ctim^ 
Col Value 

* 3 Max. Number of Orders in a Section Impedance. 

Resonator Card (First Order) 
Col value 



10 



1 
3 



Z A Parameter Card 



Number of Z. Resonators 
A 

Number of Z Resonators 

B 



Cols. 

1 - Hi 

15 - 28 
29 - h2 



Value 

+.10000000 E-ll 
+.00000000 E-99 
+.10000000 E+07 



C^ in Farads 



R^ in Ohms. 



t> 4 



_ 1 C 



Parameter Cards 



Cols. 


Value 








1 - 11* 


+ .30000000 


E-06 




in Farads. 


15 - 28 


+.20000000 


E-12 


h 


in Henries. 


iy — Ud 


♦ . J.UUUUUUU 


H+Ui* 


p 

R 5 


in yjiunts . 


Cols. 


Value 








1 - ll* 


+.10000000 


E-ll 


C 8 


in Farads, 


Cols. 


Value 








1 - 11* 


+.00000000 


E-99 






15 - 28 


+.10000000 


E-05 


I- in Henries. 


29 - 1*2 


+.10000000 


E+03 




in Ohms. 



Resonator Card (Second Order) 
Col. Value 
5 



10 



No Z A Resonators 
A 

Two Resonators in Z D Impedance. 

D 



Z Parameter Cards 

B _ ______ 



Cols. 


Value 


1-11* 


+.10000000E-12 


15 - 28 


+.OOOOOOOOE-99 


29 - 1*2 


+ .50000000E+02 


Cols* 


Value 


1 - 11* 


+. 00000 OOOE-99 


15 - 28 


-H20000000E-12 


29 - 1*2 


+.10000000E+03 



C 12 ^ Farads • 



in Ohms. 



in Henries, 
R^ in Ohms. 



Resonator Card (Third Order) 
Cols. Value 



5 
10 



No Z. Resonator 
A 

1 Z B Resonator 



Zg Parameter Card 



Cols. 



Value 



1 - lh 
15 - 28 
29 - h2 



+.5O0O0O0OE-O8 
+.10000000E-07 
+.10000000E+03 

Order Card (Input Termination) 

Col. Value 

5 1 One Order 

Resonator Card ( First Order) 
Col. Value 



C^y in Farads. 
Lyg in Henries, 
in Ohms. 



5 
10 



3 





Three Resonators in Z A# 
No Z n Resonators. 

D 



Z. Parameter Cards 
A 



Cols. 


Value 






1 - lii 


♦.OOOOOOOOE-99 






15 - 28 


♦ . 500000 OOE-06 




in Henries. 


Cols. 


Value 






1 - lh 


♦.OOOOOOOOE-99 






15 - 28 


+.OOOOOO0OE-99 






29 - li2 


+.10000000E+03 


R 19 


in Ohms. 


Cols. 


Value 






1 - lli 


+.10000000E-05 


C 21 


in Farads. 


15 - 28 


♦.OOOOOOOOE-99 




29 - 142 


+.10000000E+06 


^0 


in Ohms. 



This completes the input to sample problem 3« A listing of these cards is 
found on page 27. A listing of the results is found on Page 20. 
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SAMPLE PROBLEM 1 FOR GENERAL FILTER NETWORK ANALYSIS PROGRAN 
U 1. 10, 50. 1. 0.0 

2 2 1 
1 

1 1 

+. 10000000E -05+. 00000000 fc- 99+. 1 00000001: + 04 
+.00000000E-99+. 20000000E-05 
1 

2 1 

+. 10000000E-07 

+.OOQOOOOOF -99+. 00000000 E- 99+. 10000000E+ 06 
+. 00000000 E -99+. 1 0000000 t-Qb 
1 

1 

+. OOOQOOOOE -99+. 00000000 E- 99+. 5 0000 000 F+ 02 



,,,,duv a .auiMk«t,^ 



GENERAL NETWORK ANALYSIS PROGRAM 
SAMPLE PROBLEM 1 FOR GENERAL FILTER NETWORK ANALYSIS PROGRAM 



29APR64 



ZOR= 50.000 VOR* 



1.000 VOI* 



0,000 



S^CTIONS= 2 LETTR= 2 



NCYCL* 



nRnPR 


1 T ^ 




1 












K= 1 


1 = 




1 


MP= .1 MQ= 


1 








C( 1 » 


1 f 


1 


) « 


.10000000E-05 


L = 


.00000000E-99 


R 




C( 2 t 


1 t 


1 


) * 


.00000000E-99 


L = 


.20000000E-05 


R 




ORDER 


2IS 




1 












K* 2 


1 = 




1 


MP* 2 M0= 


1 








CC 1 , 


2 , 


1 


) = 


♦10000000E-07 


L = 


.0000OOO0E-99 


R 


m 


C< 3 , 


2 , 


1 


) = 


•00O0O000E-99 


L = 


.00000OO0E-99 


R 




C( 2 t 


2 t 


1 


) - 


.00000000E-99 


L » 


.10000000E-05 


R 




ORDER 


3IS 




1 












K= 3 


1 = 




1 


MP* i MQ* 









i 


C( 1 * 


3 , 


1 


) = 


.00000000 E-99 


L = 


.00000000E-99 


R 


e 



F 


DB 


BETA 


ZREAL 


ZIMAG 


1.0000 


4.9387 


76.462 


5.2953 


-9.2583 


1*0010 


4.9450 


76.513 


5.2851 


-9.2400 


2.0000 


10.7053 


114.502 


1.1774 


4.1843 


2.0010 


10.7105 


114.531 


1.1760 


4.1947 


3.0000 


15.4775 


138.972 


.4043 


13.2695 


3.0010 


15.4819 


138.993 


.4039 


13.2777 


4.0000 


19.5824 


156.885 


♦ 1711 


20.9877 


4.0010 


19.5862 


156.901 


.1709 


20.9950 


5.0000 


23.2046 


170.717 


.0829 


28.1290 


5.0010 


23.2081 


170.729 


.0828 


28.1360 


6.0000 


26.4500 


181.741 


.0443 


34.9788 


6.0010 


26.4531 


181.751 


.0443 


34.9855 


7.0000 


29.3887 


190.725 


.0256 


41.6625 


7.0010 


29.3915 


190.733 


.0256 


41.6691 


8.0000 


32.0716 


198.173 


.0157 


48.2434 


8.0010 


32.0741 


198.180 


.0157 


48.2500 


9.0000 


34.5371 


204.434 


.0101 


54.7565 


9.0010 


34.5395 


204.440 


.0101 


54.7630 


10.0000 


36.8156 


209.760 


.0068 


61.2225 


10.0010 


36.8178 


209.765 


.0068 


61.2289 



. 10000000E+04 
.00000000E-99 



.00000000E-99 



♦5Q000000E+02 
T ( F ) 

.14120277E-06 
.81361108E-07 
.57249998E-07 
.43333332E-07 
.34055554E-07 
•27527777E-07 
.22638888E-07 
.18916666E-07 
.15999999E-07 
.13666666E-07 



c 
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SAMPLE PROBLEM 2 NETWORK ANALYSIS PROGRAM 
50. 2. 100, 100. 

2 1 1 
+.10000000E+0 5+. 50000000 E+01 
• 1 

+. 10000000E +05+. 50000000 E+01 

1 2 
+.30000000E-10 
+.20000000E-07 

+.OOOO0O0OE-99+. 10000000E-06 
1 

+.10000000E+05+. 50000000 E+01 

1 2 
+.30000000E-09 
+.40000000E-06 

+. OOOOOOOOE -99+ # 15000000 E-0 6 
1, 

1 

+.00O0O000E-99+.O000000OE-99+. 10000000E+03 



GENERAL NETWORK ANALYSIS PROGRAM 



SAMPLE PROBLEM 2 NETWORK ANALYSIS PROGRAM 1MAY64 

ZOR= 100.000 VOR= 1.000 VOI= 0.000 

RA0» . 10000000E+05 RBO = . 50000000E+01 

SECTIONS^ 2 LETTR* 1 NCYCL= 1 



R( It 


1 


) 


= 


. 


10000000E+05 R(2f 


1 ) - 


.50000000E+01 




1 


ORDERS 


K= 


1 




1 = 




1 


MP= 1 M0= 


2 










C( 1 


t 


1 


f 


1 


) = 


.30000000E-10 


L = 


.00000000E-99 


R 




.00000000E-99 


C( 2 


9 


1 


t 


1 


) = 


•20000000E-07 


L = 


.00000000E-99 


R 




.00000000E-99 


C( 4 


f 


1 


t 


1 


) = 


•00000000E-99 


L = 


.10000000E-06 


R 




•OOOO0OOOE-99 


R( It 


2 


) 


as 


. 


10000000E+05 R(2 t 


2 ) ■ 


.50000000E+01 




1 


ORDERS 


K= 


2 




1 = 




1 


MP= 1 MQ* 


2 










C< 1 


i 


2 


T 


1 


> * 


.30000000E-09 


L = 


.0OOOO000E-99 


R 




•00000000E-99 


C( 2 


♦ 


2 


t 


1 


) = 


.40000000E-06 


L = 


.00O000O0E-99 


R 




.00000000E-99 


C( 4 




2 


f 


1 


) = 


.00000000E-99 


L = 


. 15000000E-06 


R 




.0000000OE-99 


ORDER 






3IS 




1 














K = 


3 




1 = 




I 


MP» 1 M0= 













C( 1 


f 


3 


f 


1 


) * 


.00000000E-99 


L = 


.00000000E-99 


R 




. 10000000E+03 



f 


DR 


BETA 


1 R F A L 


2 I MAG 


T ( F ) 




50*0000 


21*6168 


89.216 


5.2596 


-4.8518 






50.00 1Q 


21.6170 


89.216 


5.2596 


-4.8517 


.55555554E- 


09 


52.0000 


21.9569 


89.613 


5.2426 


-4.6662 






52*0010 


21.9571 


89.613 


5.2 42 5 


-4.6661 


.55833331E- 


09 


54.0000 


22.2846 


89.994 


5.2274 


-4.4943 






54.0010 


22.2846 


89.994 


5.2274 


-4.4943 


.52499998E- 


09 


56.0000 


22.6008 


90.361 


5.2138 


-4.3347 






56.0010 


22.6009 


90.361 


5.2138 


-4.3346 


.52777776E- 


09 


58.0000 


22.9061 


90.716 


5.2016 


-4.1859 






58*0010 


22.9063 


90.716 


5*2016 


-4.1859 


.47222220E- 


09 


60.0000 


23.2015 


91. 06 


5.1906 


-4.0471 






60*0010 


23.2016 


91.060 


5.1906 


-4.0470 


.47222220E- 


09 


62.0000 


23.4874 


91. 393 


5.1806 


-3.9172 






62.0010 


23.4875 


91.394 


5.1806 


-3.9171 


•47222220E- 


09 


64.0000 


23.7646 


91. 718 


5.1715 


-3.7953 






64.0010 


23.7647 


91.718 


5.1715 


-3*7953 


•41666665E- 


09 


66.0000 


24.0334 


92.033 


5.1633 


-3.6809 






66*0010 


24.0336 


92.034 


5.1633 


-3.6808 


. 41666665E- 


09 


68.0000 


24.2946 


92.341 


5.1558 


-3.5731 






68.0010 


24.2947 


92.342 


5.1557 


-3.5731 


. 44444443 t- 


09 


70.0000 


24.5484 


92. 642 


5.1488 


-3.4715 






70.0010 


24.5485 


92.643 


5.1488 


-3.4714 


.41666665E- 


09 


72.0000 


24.7953 


92.937 


5.1425 


-3.3755 






72*0010 


24.7954 


92.937 


5.1425 


-3.3755 


.41666665E- 


09 


74.0000 


25.0356 


93. 225 


5.1367 


-3.2847 






74.0010 


25.0358 


93.226 


5.1367 


-3.2847 


•38888887E- 


09 


76.0000 


25.2698 


93. 508 


5.1313 


-3.1987 






76.0010 


25.2699 


93.509 


5.1313 


-3* 1986 


•38888887E- 


09 


78*0000 


25.498*2 


93.786 


5.1263 


-3.1170 







-25 

21* 



lO» UU 1U 


/Qc -a 

C -* • T70 .5 


00 7 ft A 
73# f OO 


-> . I C.OD 


— ;} • I 1 / U 


• OOOOOO f fc — 




OUtUUUU 


O 7 0f\Q 
C. • 1 tU7 


O A AC Q 


5 . 1 /: 1 f 


-} r>"J fit 






OA AA 1 A 

oO .00 10 


Z5.7Z10 


94. 059 


5.1217 


-3 .0394 


• 36 111110 1- 


09 


82*0000 


25 .9384 


94. 328 


5.1174 


-2 .9657 






82*0010 


25*9385 


94.328 


5.1174 


-2.9657 


•36111110E- 


09 


84*0000 


26.1509 


94. 593 


5.1134 


-2.8954 






84*0010 


26.1510 


94.593 


5.1134 


-2.8954 


•36111110E- 


09 


86*0000 


26.3585 


94.853 


5.1097 


-2.8284 






86*0010 


26*3586 


94.853 


5*1097 


-2.8284 


.38888887E- 


09 


88.0000 


26.5616 


95* HO 


5.1062 


-2.7645 






88 .00 10 


26* 561 7 


95. 1 10 


5,1062 


-2*7644 


• 36 111110 E- 


09 


90*0000 


26*7604 


95. 364 


5.1030 


-2 ♦ 703 3 






90 .0010 


26.7605 


95. 364 


5.1030 


-2.7033 


•36 111110 E- 


09 


92 *0000 


26 .9549 


95* 614 


5 .1000 


-2 • 6449 






92 *0010 


26.9550 


95.615 


5*1 000 


-2.6449 


.36111110E- 


09 


94*0000 


27 • 1455 


95. 862 


5.0971 


-2 *5889 






94*00 10 


27*1456 


95. 862 


5 #0971 


-2. 5889 


• 33333332 E- 


09 


96*0000 


27.3323 


96.107 


5.0944 


-2.5353 






96.0010 


27.3324 


96.107 


5.0944 


-2.5352 


.36111110E- 


09 


98*0000 


27.5154 


96.349 


5.0919 


-2.4838 






98*0010 


27*5155 


96.349 


5.0919 


-2.4838 


•33333332E- 


09 


100*0000 


27.6950 


96.588 


5.0896 


-2.4344 






100*0010 


27.6951 


96.5 88 


5 .0896 


-2.4344 


.33333332E- 


09 



-26. 
239 



SAMPLE PROBLEM 3 NETWORK ANALYSIS PROGRAM 4MAY64 

05 . 5. 100. 100. 1. 0.0 

2 2 2 
1 

1 1 
+ • 10000000E-05 

+ . OOOOOOOOE -99 + . 00000000 E-99+. 1 OOOOOOOE+04 
3 

1 3 

+ . 100OO0O0E-11+.0OOO0000E-99+. 10000000E+07 
+.30000000E-06+. 20000000 E-l 2 + . 10000000E+ 04 
+.10000000E-11 

+.O0O0O000E-99+. 10000000 £-0 5 + . 1 000OO00E+03 
2 

+.10000000E-12+. 00000000 E-99+ . 50000000E+02 
+ . OOOOOOOOE *-99 + . 2 0000000 E- 12 + . 10000000E + 03 
1 

+.5OO0O000E-0B+. 1 0000000 E-0 7+. 10000000E+03 
1 

3 

+• OOOOOOOOE -99+. 50000000 E-0 6 

+• OOOOOOOOE -99+. OOOOOOOOE- 99+. 10000000E+03 
+.10000000E -0 5+. 00000000 E-99+. 1 0000O00E+O6 



2 40 



GENERAL NETWORK ANALYSIS PROGRAM 



SAMPLE PROBLEM 3 NETWORK ANALYSIS PROGRAM 4MAY64 





100.000 




VQR» 1.000 


V0I = 


0.000 










SECTIONS* 


2 




L ETTRs 2 NCYCL* 


2 










ORDER 


1 ] 


t S 


1 
















K« 1 




' c 


1 


MP= 1 M0= 


1 

X 












C ( 1 • 


1 , 


X 






1 = 

L. — 


• 00000000E 


-99 


R 


— 


.OOOOOOOOE- 99 


C ( 2 • 


X * 








1 - 

u 


•OOOOOOOOE 


-99 


R 


— 


. 1Q000000E+04 


ORDER 


2J 


L O 


3 
















K* 2 






1 


MP = 1 MQ= 


3 












r / l 
u \ it 


•> 

t 1 


r 1 


) = 


• lUUUUUUu t~ 1 1 


L — 


• 00000000E 


-99 


R 


s 


. 10000000E+07 




<L 1 


1 


) = 


. 3UUUUUUU C— Uo 


L c 


.20000000E 


-12 


R 


= 


. 10000000E+04 




O . 

C \ 


. i 
^ Jl 


) * 


♦ iUUUUUuUC i 1 


1 — 
L — 


•OOOOOOOOE 


-99 


R 




•O0O0OOO0E-99 


C( 6 , 


2 , 


1 

JL 


) = 


.00000000E-99 


L = 


• l.OOOOOOOE 


-05 


R 


» 

s 


. 10000000E+03 


K* 2 




ss 


2 


MP= MQ= 


2 












f ( 2 • 




2 


) *= 


.10000000E-12 




•OOOOOOOOE 


-99 


R 


s 


•50000000E+02 


C( 4 , 


2 , 


2 


) = 


•O00O00OOE-99 


L « 


•20000000E 


-12 


R 




• 10000000E+03 


K« 2 






3 


MP= M0= 


1 












C( 2 t 


2 i 


3 


) = 


.50000000E-08 


L = 


.10000000E 


-07 


R 




• 10000000E + 03 


ORDER 


31 


S 


1 
















K» 3 






1 


MP* 3 MQ= 















C( 1 t 


3 i 


1 


) = 


.00000000E-99 


L «= 


.50000000E 


-06 
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.00000000E-99 


C( 3 * 


3 i 


1 


) = 


.O000OOO0E-99 


L = 


• OOOOOOOOE 


-99 


R 


s 


. 10000000E+03 


C< 5 f 


3 , 


1 


) = 


.10000000E-Q5 


L = 


.OOOOOOOOE 


-99 


R 




. 10000000E+06 


F 






DB BETA 




ZREAL 


ZIMAG 




T(F) 



5.0000 


180.7194 


180.838 


1065.2886 


.2987 






5.0010 


180.7228 


180.838 


1065.2887 


.2999 


.77777775E 


-09 


10.0000 


192.0992 


182.003 


1066.2497 


4.5705 






10.0010 


192.1008 


182.004 


1066.2501 


4.5712 


.55555554E 


-09 


15.0000 


198.3916 


182.824 


1067.7597 


7.4989 






15.0010 


198.3926 


182.825 


1067.7601 


7.4994 


•38888887E 


-09 


20.0000 


202.7228 


183.368 


1069.6027 


9.6923 






20.0010 


202.7236 


183.368 


1069.6031 


9.6927 


.22222221E 


-09 


25.0000 


206.0672 


183.685 


1071.5953 


11.2810 






25.0010 


206.0678 


183.685 


1071.5957 


11.2812 


•13888888E 


-09 


30.0000 


208.8277 


183.835 


1073.5931 


12.3601 






30.0010 


208.8282 


183.835 


1073.5935 


12.3602 


.55555554E 


-10 


35.0000 


211.1986 


183.869 


1075.4981 


13.0270 






35.0010 


211.1991 


183.869 


1075.4985 


13.0271 


• OOOOOOOOE 


-99 


40.0000 


213.2865 


183.828 


1077.2542 


13.3759 






40.0010 


213.2869 


183.828 


1077.2546 


13.3760 


-.27777777E 


-10 


45.0000 


215.1560 


183.741 


1078.8370 


13.4893 






45.0010 


215.1563 


183.741 


1078.8373 


13 .4893 


-.55555554E 


-10 


50.0000 


216.8501 


183.628 


1080.2430 


13.4347 
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50,0010 


216.8505 


183.628 


55.0000 


218.3995 


183.501 


55.0010 


218.3998 


183.501 


60.0000 


219.8269 


183.369 


60.0010 


219.8272 


183.369 


65.0000 


221.1500 


183.237 


65.0010 


221.1502 


183.237 


70.0000 


222.3827 


183. 108 


70.0010 


222.3829 


183.108 


75.0000 


223.5363 


182.985 


75.0010 


223.5365 


182.985 


80.0000 


224.6202 


182.867 


80.0010 


224.6204 


182.867 


85.0000 


225.6422 


182.757 


85.0010 


225.6424 


182.757 


90.0000 


226.6089 


182.653 


90.0010 


226.6091 


182.653 


95.0000 


227.5257 


182.555 


95.0010 


227.5259 


182.555 


100 .0000 


228.3976 


182.464 


100.0010 


228.3977 


182.464 



1080.2433 


13.4347 


-.55555554E- 


10 


1081 .4807 


13.2648 






1081 .4809 


13.2647 


-.55555554E- 


10 


1082 .5648 


13.0190 






1082 .5651 


13 .0189 


-.55555554E- 


10 


1083.5125 


12.7260 






1083.5127 


12.7260 


-.83333331E- 


10 


1084.3404 


12.4067 






1084.3405 


12.4066 


-.55555554E- 


10 


1085.0647 


12.0753 






1085 .0649 


12.0752 


-.5 5555554E- 


10 


1085.6997 


11.7419 






1085 .6998 


11.7418 


-. 55555554E- 


10 


1086.2579 


11 .4133 






1086.2580 


11.4132 


-.55555554E- 


10 


1086.7501 


11.0938 






1086 .7502 


11 .0937 


-.55555554E- 


10 


1087.1857 


10.7862 






1087.1857 


10.7862 


-.55555554E- 


10 


1087.5724 


10.4922 






1087.5725 


10.4922 


-.55555554E- 


■10 
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APPENDIX A 



The following paragraphs will outline the equations programmed for the 
various subprograms. Tries e assume steady state conditions on the imaginary 
axis (S » j») with linear, lumped, bilateral, passive elements. The program 
processes basic sections starting with that section nearest the output 
termination. Regardless of section type, this section will have Z. and Z_ 

A JfcJ 

impedances. 

The DRPTZ subprogram calculates the impedances and admittances for a single 
order as in Figure 8 for both the Z^ and impedance. 

The number of parallel branches, or resonators as they are called in the 
Westinghouse report, allowed is a function of available core storage. As 
written, three resonators per order are allowed although this could be 
increased by reallocating storage, i.e. , reducing the number of orders per 
basic section impedance or the number of basic sections. The impedance for 
a single branch or resonator is: 



Z. 



1 




1 



1 



V*i 



co c. 



T 




*i 2 + (g) l i - srq )2 



1 




*™1 



YJRL, - - 

R, 



-30 

243 



J (jnrrYVJVVVU 
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ORDFP ! 
I = i 




FICl'PF. Q - TO OPPFPS OF K BASIC ^FCTION IMPEIHNCE 



Z(3) - 



OPDFP 3 




7.(2) 



onrr.Rs 
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™1 



1 T 



Summing admittances for all k parallel branches in an order gives: 



" Z m i 



i«l 
k 



I ™i 



i-1 



z t * 1/x t " zrl t + izm r 

The DRPTZ subprogram stores values of ZRI^, and ZIHj, impedances. Program 
control is then given to the ORDER subprogram. 

The ORDER subprogram first stores the impedance values just computed by , 

DRPTZ as subscripted impedances Z(I), with the order counter I set at 1. 

Control is returned to the main line which determines if either the Z. or 

A 

Zg basic section impedance consists of more than one order. If not, control 

is given to the proper recursion subprogram. If there are more than one 

order in either Z or Z~ 9 the counter is incremented to 2 and control is 

A # 
returned to DRPTZ. 

The DRPTZ subprogram then zeros the variables YRLj ^ ™<? and repeats the 
process described above using the element values for the second orders of 
the appropriate basic section impedances. Control is then given to the 
ORDER subprogram. 

The ORDER subprogram determines if the order counter I equals 2 or 3. If 
I is 2, ORDER simply sums the impedances Z^, just computed by DRPTZ with those 
previously stored as subscripted impedances when I equalled 1. Figure 9 
illustrates the situation. 




Z(l) • ZTRL(l) ♦ jZTIM(l) 

Z(2) • Z(l) +Z T - ZTBL(l) ♦ jZTIM(l) + ZBL T + jZIHp «ZTRL(2) ♦ jZTIM(2) 
ZTPX(2) - ZTRL(l) + ZRL T 
ZTIM(2) - ZTIM(l) + ZIHp 

If the order eounter I is 3> the ORDER subprogram has the situation in 
Figure 10. DRPTZ again has computed the impedance and admittance 
Y T for the third order. 

Y T - YRL T + jHHp (for Order 3) 

Y(3) « 1/Z(3) " 2T?7 + Y T " stta(g) ♦ JZMf(2) * Y T 
. ZTRL(2) ■ JZTIM(2) + ^ + j ^ 

where A - [zTRL(2)] 2 ♦ [ZTIM(2)] 2 

Y(3) - £<j[zTRL(2) ♦ A(YRL T )]*J [ftfflHj) -ZT3M(2)]| 

Let B - ZTRL(2) + A^BI^) 
C - AiYMy) - ZTIM(2) 

Z(3) - 1A(3) - ^ - 

Control is returned to the main line. If there are no further orders to 

be processed in the particular basic section impedances, control is given to 

the appropriate recursion subprogram LADDER or LATTICE # 

The LADDER subprogram has the situation in Figure 11. As mentioned previously 
computation proceeds from right to left. The first step is to pick up the 
complex values of impedance just computed by the DRPTZ and ORDER subprograms, 
and the voltage and impedance existing at the output of the particular section 
being considered. If the first section to the left of the output termination 
is being processed, these latter two values are V Q and R Q . In the general 
case they are and Z^_^ 

V K-1 - * 3VIM k-i 2 k 6 
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ZV 



SECTION 1 



Z\ 
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TERM I NVTION Z T 



*M. ' ZRL K-1 * 3ZIM K-1 



Note that ZA^ and ZB^ are equal to the appropriate Z(l) values determined 
in DRPTZ and ORDER where I is the maximum order of the k** 1 section. 



\ - ZB K 



^ Z K-1 , 
^ * Z K-1 



V K - V K-1 . 



ZB K 



'K-l 



'K-l 



K 



The LATTICE subprogram has the situation presented in Figure 12. 

It will be noted that symmetrical resistive pi sections are placed at 

each end of the basic symmetrical lattice section to permit a definite 

amount of attenuation or isolation between sections. This feature can 

effectively be eliminated ty inserting zero values for the series elements 

and very large values for the shunt R^ elements. Again ZA^ and ZB^ 

have been computed by the DRPTZ and ORDER subprograms and are equal to 

th 

the appropriate Z(I) values where I is the maximum order of the K section. 
The recursion equations for the LATTICE subprogram follow. Computation 
proceeds from right to left as before. Note that the following equations hold 
for Fig. 12 f in which the pi section shunt RA and series RB have been inter- 
changed. 



Z K-1 



(RB K-1> (Z K-1> 



R 



* Z 



K-l 



R 



< RB K-1> <*M> 
(RI *-1 * Z K-1> 



'K-l 



f K-l { 



1 ♦ 



K-l 



'K-l 
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(ZA R + ZBg) + 2(ZA K ) (ZBj) 
h 2 Z ♦ ZAk ♦ ZBk 



V K 



Z K-1 (ZB K " Z V 
(1/^ ♦ RA K + x 

(1/RB^ ^(1/Z K + l/RE^) HAj ♦ 1^ ♦ 1/Z K + 



The procedures described are repeated section -by-section until the last 
filter section before the Input termination has been processed. The 
impedance of the entire filter plus the output termination is stored 
for subsequent output as ZREAL and Z3MA0. The Termin subprogram is called 
to monitor calculation of the input termination impedance and input voltage 

required to produce the specified output voltage V • The subprogram 
uses the DRPTZ subprogram to determine the single -ordered input termination 
impedance, subsequently computing V^. Figure 13 illustrates the situation 
with Z representing the input impedance of the filter plus the output re- 
sistance and the input termination, V is the voltage at the filter input« 

? i- v . V 

— : — 7 




Vj-V (-£♦« - I (z T + z) 

Z T is stored as follows: 
Z T - RK ♦ jXK 




and control is returned to the main line which calls the BETADB subprogram. 

BETADB calculates the phase angle £ of the voltage and the insertion 
loss A. These equations follow: 




VPRL ♦ JVP3M 



p - tan" 1 (YPIMAPRL) 



A • 



20 log. 



»lo (K ♦ r ♦ m 








p is reported as a positive angle. 

Following calculation of the voltage angle and insertion loss by the BETADB 
subprogram, control is returned to the main line which outputs the following 
informations 



Frequency (in megacycles) 
Insertion loss (in decibels) 
Input voltage angle (in degrees) 
Filter Impedance including output termination 
(in ohms - rectangular form). 



This completes one full pass thru the program. 

Time delay is approximated by repeating the complete procedure with the 
frequency incremented by 1000 cycles, finding the change in input voltage 
angle, and dividing by a constant proportional to the increment in frequency. 



As written, C • 360. This result approximates the slope of the phase versus 
frequency curve at the frequency point $00 cycles above the base frequency. 
The mainline then outputs the same information as above at the incremented 
frequency, as well as T. The frequency value is decremented by 1000 cycles, 
and tested against the maximum frequency value, FMAX; If less than that 
value, frequency is incremented by FEEL and the entire procedure repeated. 
Eventually frequency reaches FMAX and the program returns to its beginning 
point ready to read in another title card and complete set of frequency and 2 »J 
element cards representing a new filter. If there are no cards in the input 
hopper the Reader-No-Feed light is turned on. -37- 



T - 



1000 C 



C GENERAL FILTER NETWORK ANALYSIS PROGRAM FOR LADDER AND LATTICE 
C SECTIONS. 

C Z * COMPLEX DRIVING - POINT IMPEDANCE FUNCTION 

C Y * COMPLEX DRIVING - POINT ADMITTANCE FUNCTION 

C SUBSCRIPT (LKI) * ( (_ ) STANDARDIZED POSITION OF { K ) 
C SECTION OF ( I ) ORDER 

C PROGRAM BASED UPON WESTINGHOUSE REPORT TITLED ELECTRONIC DIGITAL 
C COMPUTER ANALYSIS OF CASCADED NETWORKS BY RICHARD TUZNIK 

C AND DEAN H. WOOD* 

C PROGRAM CAN BE EXPANDED TO HANDLE PI, TEE, AND BRIDGED-TEE 
C SECTIONS ADDING APPROPRIATE SUBPROGRAMS AND MAKING 

C NECESSARY REVISIONS IN EXISTING ROUTINES. 

C 



DIMENSION C(6,5,3), R(6,5,3), AL(6,5,3), MP(5,3), MQ<5,3), 
1RA(5), RB(5), IOR0R(5), ZAKRL ( 3) , ZBKRL { 3 ) , ZAKIM(3), ZBKIM(3) 

COMMON C, R, AL, MP, MQ, RA, RB , ZAKRL, ZBKRL, Z A K I M , ZBKIM, YARL, 
1YBRL, YAIM, YBIM, ZARL, ZBRL, ZAIM, ZBIM, F, F2, IRECZPRL, ZPIM, 
2VPRL, VPIM, ZRL, ZIM, VRL, VIM, K, I, IPUNC, RAO, RBO , DEN, L, 
3INDX, REAL , AIMG, RLDEN, ANMIN, RLNUM, DENIM, A, B, OUAN, IORDR, 
4LETTR, VAR1, IORD, ZARLK, ZBRLK, ZAIMK, ZB IMK ,NSECT , NT 

COMMON XK, RK, ZOR, ZOI, VOR, VOI, BETA, DB, XIMAG 

PI = 3.14159265 

PI2 = 6.2831853 

CONST = 1.0/360000. 

CONV « 180.0/PI 

100 FORMAT < /32HGENERAL NETWORK ANALYSIS PROGRAM/) 

101 FORMAT (6F1K5) ^ 

102 FORMAT (315) 

-3*- 



103 FORMAT (3E14.8) 

C 
C 
C 

12 READ 116 

C READ TITLE CARD WITH UP TO 80 CHARACTERS • 

PUNCH 100 
PUNCH 116 

116 FORMAT ( 40H f ^OH 

' 1 

C 
C 

c 

READ 101, FMIN, FDEL, FMAX, ZQR, VOR, VOI 
C ZOR IS OUTPUT TERMINAL RESISTANCE IN OHMS, FM IN, FDEL, AND 

C FMAX ARE FREQUENCIES IN MC . 

C VOR AND VOI ARE OUTPUT TERMINAL VOLTAGES, FOR REFERENCE, 

C VOR = 1.0, VOI = 0.0 

C 
C 
C 

READ 102, NSECT, LETTR, NCYCL 

C NSECT IS NUMBER OF INVERTED L-SECTIONS OR SYMMETRICAL LATTICE 

C SECTIONS. 

C LETTR SPECIFIES TYPE OF BASIC SECTION, = 1 FOR SYM LATTICE, 

C =2 FOR LADDER. 

C NCYCL = NO OF TIMES GROUP OF SECTIONS IS USED BEFORE PROCEEDING ^ 

C TO FINAL PORTION OF PROGRAM. 



c 



c 
c 
c 
c 



GO TO (45,54), IETTR 
45 READ 103, RAO, RBO 

READ INITIAL P I PAD VALUES , RAO IS SHUNT BRANCH, R80 IS SERIES 

BRANCH • THESE VALUES ARE REQUIRED FOR LATTICE SECTIONS ONLY. 



C PUNCH OUT INPUT VALUES 

C 

55 PUNCH 105, ZQR, VOR , VOI, RAO, RBO 

105 FORMAT </4HZ0R.,F9. 3 , 3X4HV0R= , F 9 • 3 , 3X4HV0 I a , F9 . 3/ 4HR AO- , * 1 4 . a , O 
13X4HRB0=,E14.8/) 

GO TO 56 
54 PUNCH 104, ZOR, VOR, VOI 

104 FORMAT ( /4HZ0R = , F9 ♦ 3 , 3X4HV0R* ,F9. 3 , 3X4HV0 I - , F9 . 3/ ) 
56 PUNCH 111, NSECT, LETTR, NCYCL 

111 FORMAT (9HSECTI0NS=,I4, 3X6HL ETTR*= ,14, 3X6HNC YCL= , I 4) 
NSECT *= NSECT+1 
DO 2 K = 1 , NSECT 



C 
C 

C 

c 



READ 102, IORDRU) ' 

IORDR IS NUMBER OF PRDERS PER SECTION IMPEDANCE ARM OF A SECTION. 

IF SECTION IMPEDANCE ARMS HAVE DIFFERENT . ORDERS, USE LARGER ^ 



P value. 2 5 



o 



C 



c 

C DO NOT READ PI PAD VALUES FOLLOWING TERMINATION SECTION. 
GO TO (47,48>, LETTR 

47 IF(NSECT-K) 48 t 48, 64 

C 
C 

64 READ 103, R A ( K ) , RB < K ) 

C RA AND RB ARE PI PAD VALUES FOLLOWING SECTION K. R A - SHUNT 
C BRANCH* RB - SERIES BRANCH. 

C 

c 

PUNCH 106, K, R A ( K ) , K, RB(K), IORDR(K) 
GO TO 49 

48 PUNCH 110, K, IORDR(K) 

110 FORMAT (/5H0RDER, 14, 2HIS, 14/) 

106 F0RMAT14HR(1,,I2,5H ) » , E14. 8 , 2X4HR ( 2 , , 1 2 ,5H ) = , E 14. 8 , 2X , I 2 , 

17H ORDERS) 

49 IORD = IORDR(K) 
00 2 I s 1, IORD 

C 
C 

READ 102, MP(K,I ) f MQ(K,I ) 
C MQ = NO OF RESONATORS IN (I)TH ORDER IMPEDANCE ZB IN ( K ) TH SECTION 

C MP = NO OF RESONATORS IN (I)TH ORDER IMPEDANCE ZA IN ( K ) TH SECTION 

C RESONATORS ARE NUMBER OF PARALLEL BRANCHES. 

C 

C 254 

PUNCH 112, K, I, MP(K,I), MQ(K,I) 

-hi- 



112 FORMAT (2HK=, 14, 3X2HI=, 14, 3X3HMP=, 14, 3X3HMQ= t 14) 
IREC * MP|K,I ) 

L .« 1 

9 IF UREC-L) 7, 8, 8 
8 INDX = 2*L-1 

C 

c 

READ 103, CUNDXtKfl), AL ( INDX,K, I ) , R(IN0X,K,I) 
C READ C ( FARADS ), L ( HENR I ES )» AND R(OHMS) VALUES OF ZA TYPE IMPEDANCE 

C WHICH IS PARALLEL ARM FOR INVERT ED-L SECTIONS AND IS SERIES 

C ARM FOR LATTICE SECTIONS. 

C 

c 

PUNCH 107, INDX, K, I, C(INDX,K,I), AL ( INDX , K , I ) , R(INDX,K,I) 
107 FORMAT ( 2HC < , 12, 2H ,, 12, 2H ,, 12, 5H > =* , E14.8, 2X4HL = , 
l€14.8, 2X4HR * , E14.8) 
L « L + l 
GO TO 9 
7 IR6C = MQ(K,I ) 
L * 1 

10 IF (IREC-L) 2, 11, 11 

11 INDX « 2*L 

C 
C 

READ 103, CUNDX,K,I), AL { INDX,K,I ), R(INDX,K,I) 
C READ C( FARADS ), L( HENR I ES ) » AND R{ OHMS ) OF ZB TYPE IMPEDANCE WHICH 

C IS SERIES ARM FOR INVERTED-L SECTIONS AND IS PARALLEL ARM FOR 

2 r i 

C LATTICE SECTIONS. 



PUNCH 107 t INDX, K, I, C(INOX,K,I), AL ( INDX ,K ♦ I > » R!INDX,K,I) 
L = L+l 
GO TO 10 
2 CONTINUE 

FCOUN = FMIN 
KKLL = 1 
JFREQ = 1 
NSECT = NSECT-l 
20 ZRL = ZOR 
ZOI=0. 
2IM = 0.0 
VRL = VOR 
VIM = VOI 
IREC = 
K = 1 
I * 1 
N * 1 

GO TO (42*43) ♦ LETTR 

CALCULATE DROP FOR Pi PAD PRECEDING FIRST SECTION. 

42 CALL LATTIS 

43 IREC «= 2 

F = <FC0UN*1«0E+6)*PI2 

F2 « F*F 2 5 6 

N « 1 



K a 1 

25 IORD = IORDR(K) 

I = 1 
22 CAUL DRPTZ 

CALL ORDER 

IFUORD-I ) 3t 3, 21 
21 I = 1+1 

GO TO 22 
3 GO TO (36,37>,LETTR 

36 CALL LATTIS 
GO TO 38 

37 CALL LADDER 

38 IF(NSECT-K) 27, 27, 24 
24 K * K+l 

GO TO 25 
27 IF(NCYCL-N) 30, 30, 29 

29 N s N+l 
K = 1 

GO TO 25 

30 CONTINUE 

GO TO (99,44), LETTR 
99 ZRLN = ZPRL 

ZIMN = ZPIM 

GO TO (97, 98), KKLL 
44 ZRLN * ZRL 

ZIMN = ZIM 

GO TO (97,98) , KKLL 
97 PUNCH 109 



KKLL = 2 



98 K 3 NSECT+1 

SET K AND I VALUES PERTAINING TO INPUT TERMINAL IMPEDANCE. K WILL 
BE EQUAL TO NSECT+1, I « It WHERE THE IMPEDANCE IS CONSIDERED 
ZA TYPE ♦ 

I = 1 

CALL TERMIN 
32 GO TO (33,34), JFREO 



33 JFREQ = 2 
CALL BETADB 

CALCULATE DB AND BETA. 



BET A 1 » BETA 

ZRLN AND ZIMN ARE IMPEDANCE VALUES OF INSERTED NETWORK WITH OUTPUT 

TERMINATION ZOR. THESE INCLUDE PI PADS FOR LATTICE SECTIONS. 
PUNCH 108, FCOUN, DB, BETA, ZRLN, ZIMN 

INCREMENT F BY 1000 CYCLES AND REPEAT ENTIRE PROCEDURE IN ORDER 
TO OBTAIN TIME DELAY. 

2 r .. 

FCOUN * FCOUN+0.001 

-1*5- 



GO TO 20 
34 CALL BETADB 

T * (BETA-BETAl >*CONST 
JFREQ =1 

PUNCH 108, FCOUN, DB, BETA, ZRLN, ZIMN, T 



C 



C DECREMENT FREQUENCY BY 1000 CYCLES. 

C 



FCOUN » FCOUN-0.001 



c 



C IS FREQUENCY AT MAXIMUM VALUE. 

C 



IF (FMAX-FCOUN) 12, 12, 35 



NO. INCREMENT BY AMOUNT AT INPUT AND REPEAT CALCULATIONS 



35 FCOUN = FCOUN+FDEL 
GO TO 20 

C 



YES. GO TO START TO READ IN NEXT COMPLETE FILTER 



~" PROBLEM. 

C 



108 FORMAT <F9.4, 2XM .4 t 2XF10.3, 2XF10.4, 2XF10.4, 2XE14.8) 

109 FORMAT (MxlHF, 10X2HDB, 8X4H8ETA > 8X5HZRE AL > 7X5HZ IMAG, 9X.HT, F, / , 



END 



25 9 



SUBROUTINE BETADB 

CALCULATES BETA ( R ADI ANS ) AND DB FOR FREQUENCY 

DIMENSION C(6,5,3), R(6,5,3), AL(6,5,3), MP(5,3), MQ(5,3), 
lRA(5)t RB(5), IORDR(5), Z AKRL ( 3 ) , ZBKRL ( 3 ) » ZAKIM(3>, ZBKIM13) 

COMMON Ct Rt AL, MP, MQ, R At RB, ZAKRL, ZBKRL, ZAKIM, ZBKIM, YARL, 
1YBRL, YAIM, YBIM, ZARL, ZBRL , ZAIM, ZBIM, F, F2 t IREC, ZPRL, ZPIM, 
2VPRL, VPIM, ZRL, ZIM, VRL, VIM, K, I, IPUNC, RAO, RBO, DEN, L, 
3INDX, REAL, AIMG, RLDEN, ANMIN, RLNUM. , DENIM, A, B, OUAN, IORDR , 
4LETTR, VAR1, IORD, ZARLK, ZBRLK , ZAIMK, Z B I M K » N S E C T , NT 

COMMON XK, RK , ZOR, ZOI, VOR, VOI, BETA, DB , XIMAG 

PI = 3.14159265 

PI2 = 6.2831853 

CONV « 180.0/PI 

BETA = (ATANF{VPIM/VPRL) )*CONV 

MAKE BETA POSITIVE ANGLE BETWEEN AMD 360 DEGREES. 

IF(VPRL) 1» 2, 2 

1 BETA » BETA+180.0 
GO TO 4 

2 IF (BETA) 3, 4, 4 

3 BETA = BETA+360.0 

4 RNUM = ZOR*VPRL-ZOI*VPIM 
XIMAG = VPRL*ZO!+ZOR*VPIM 
XNUM = SQRTF (RNUM*RNUM+X IMA G* XIMAG) 
RLDEN = RK*VOR+ZOR*VOR-XK*VOI-ZOI*VOI 
X I MAD a XK*VOR+ZOI*VOR+RK*VOI+ZOR*VOI 
DEN = SQRTF(RLDEN*RLDEN+XIMAD*XIMAD) 
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DB « 2.0*4. 3429448*L0GF(XNUM /DEN) ^ 



RETURN 
END 
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SUBROUTINE LATTIS 



# C 



RECURSION FORMULAE FOR SYMMETRICAL LATTICE SECTION 



C 



CALCULATES ZRL, ZIM, ZPRL, ZPIM, VKL, VIM, VPRL, VPIM 



DIMENSION C(6,5,3), R(6,5,3), AL(6,5,3), MP(5,3), MQ(5,3), 
lRA(5) f RB(5) t IORDR(5) f ZAKRL(3), ZBKRL ( 3 ) , ZAKIM(3), ZBKIM(3) 

COMMON C, R, ALt MP, MQ, RA, RB, ZAKRL, ZBKRL , ZAKIM, ZBKIM, YARL, 
1YBRL, YAIM, YBIh, ZARL, ZBRL , ZAIM, 7BIM, F , F2, IREC, ZPRL, ZPIM, 
2VPRL, VPIM, ZRL, ZIM, VRL, VIM, K, I, IPUNC, RAO, RBO, DEN, L, 
3INDX, REAL, AIMG, RLDEN, ANMIN, RLNUM, DENIM, A, B, QUAN, 1 R OR , 
4LETTR, VAR1, IORD, ZARLK, ZBRLK, ZAIMK, ZB I MK , N^FCT , NT 

COMMON XK, RK, ZOR, ZOI, VOR, VOI, BETA, DB , XIMAG 

REAL = 1,0/RAO 

DAIMG = RBO 

C 

C IF FIRST SECTION, GO TO 4-022 TO CALCULATE INT 1 1 AL PI PAD DROP* 

C COME BACK TO CALCULATE FIRST SECTION AND FOLLOWING PI 

C PAD DROP • 

C 

IF ( IREC ) 4021, 4022, 4021 
4021 ZARLK * Z AKRL ( I ) 
ZBRLK = Z BKR L ( I ) 
ZAIMK = Z AK I M ( I ) 
ZBIMK = ZBKI M ( I ) 
REAL = ZARLK+ZBRLK 
AIMG = ZAIMK+ZBIMK 
Q RLNUM = ZPRL^REAL- ZPIM*AIMG ' 

RLNUM « RLNUM+2 #0* ( ZARLK* ZBRLK- ZA IMK*ZB IMK ) 



RLDEN s 2.0* ZPRL+REAL 



DENIM 



* 2*0* ZPIM+AIRG 



ANMIN 



ZPIM*REAL+ ZPRL*A IMG 



ANMIN 



= ANMI N+2«0* ( Z ARLK*ZB IMK+ ZA IMK*ZB RLK ) 



DEN » 



1.0/<RLDEN*RLDEN+DENIM*DENIM) 

/ 



ZRL « (RLNUM*RLDEN+DENIM*ANMIN)*DEN 

ZIM * (RLDEN*ANMIN-RLNUM*DENIM)*DEN 

REAL = ZBRLK-ZARLK 

AIMG « ZBIMK-ZAIMK 

RLOEN = ZPRL*REAL- ZPIM*AIMG 

DENIM ■ ZPIM*REAL+ ZPRL*A IMG 

DEN » 1.0/(RLDEN*RLDEN+DENIM*DENIM) 

A = VPRL*RLNOM-VPI M*ANM IN 

B » VP I M*RLNUM+VPRL*ANM IN 

VRL * t A*RLDEN+DENIM*B)*D£N 

VIM «= { RLDEN*B-A*DENI M) #DEN 

REAL = 1.0/RA(K) 

AIMG = RB < K ) 

DEN * 1.0/<ZRL*ZRL+ZIM*ZIM) 

RLNUM = 1 ♦0+REAL*AI MG+ A IMG*ZRL*DEN 

ANMIN = AI MG*Z I M*DEN 

RLDEN = 2.0*R6AL+AIMG*REAL*REAL+(ZRL*REAL*AIMG+ZRL )*DEN 

DENIM = (REAL*AI MG*Z IM+ZIM)*DEN 

DEN =» 1.0/(RLDEN*RLDEN+DENIM*DENIM) 

ZPRL » {RLNUM*RLDEN+DENIM*ANMIN)*DEN 

ZPIM = (-RLDEN*ANMIN+RLNUM*DENIM)*DEN 

DEN = 1.0/ (ZRL#ZRL + ZIM*ZIM) 

VPRL = VRL+VRL*REAL*AlMG+( VRL*A IMG*ZRL + V IM*Z IM*AIMG ) *DEN 
VPIM = VIM+VIM*AIMG*REAL+< VIM*AIMG*ZRL-VRL*ZIM*AIMG)*DEN 



4002 RETURN 
END 
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SUBROUTINE ORDER 

C COMPUTES TOTAL COMPLEX IMPEDANCE FOR BASIC SECTION IMPEDANCES 

C ZA AND ZB FROM INDIVIDUAL OROERS. 

DIMENSION C(6, 5, 3), R<6,5,3), AL<6,5,3), MP(5,3>, MQ(5,3), 
1RA<5), RB(5), IGRDR(5), Z AKRL < 3 ) , ZBK RL ( 3 > , ZAKIM(3) ? ZBKIM(3) 

COMMON C, R, AL, MP, MQ, RA, RB, ZAKRL, ZBKRL, ZAKIM, ZBKIM, YARL, 
1YBRL, YAIM, YBIM, ZARL, ZBRL, ZAIM, ZBIM, F, F2, IREC, ZPRL, ZPIM, 
2VPRL, VPIM, ZRL, ZIM, VRL, VIM, K, I, IPUNC, RAO , RBO, DEN, L, 
3INDX, REAL, AIMG, RLDEN, ANMIN, RLNUM, DENIM, A, B, OUAN, IORDR , 
4LETTR, VAR1, IORD, ZARLK, ZBRLK, ZAIMK, ZB IMK , NSECT , NT 
COMMON XK, RK, ZOR , ZO I , VOR, VOI, BETA, DB , XIMAG 
IVAL = 1-1 

IF(IVAL) 5001, 5002, 5001 
5002 Z AKRL ( I ) * ZARL 

ZAK IM { I ) * ZAIM 

ZBKRL ( I ) = ZBRL 

ZBK I M ( I ) * ZBIM 

GO TO 5006 
5001 IF<I-(I/2)*2) 5007, 5004, 5007 
5004 ZAKRL ( I ) = ZARL + ZAKRL ( I VAL ) 

ZAKIMU) = ZAIM+ZAKIM( IVAL) 

ZBKRL ( I ) = ZBRL+ZBKRL( IVAL) 

ZBK I M i I ) = ZBIM+ZBKIM( IVAL) 

GO TO 5006 
5007 RLNUM = ZAKRL(IVAL) 

DENIM = ZAKIM(IVAL) 

9 6 r > 

QUAN =RLNUM*RLNUM+DENIM*DENIM ~ * 

B = YARL*QUAN+RLNUM -52- 



A » YAIM*QUAN-DENIM 
DEN « 1.0/( B*B+A*A) 
ZAKRL. ( I ) * B#QUAN*DEN 
ZAKIMU) « ~A*QUAN*DEN 
RtNUM • ZBKRL(IVAL) 
DENIM « ZBKIM{ I VAL) 
QUAN =RLNUM#RINUM+0ENIM*DENIM 
B « YBRL*QUAN*RLNUM 
A * YBIM*QUAN-DENIM 
DEN 53 1.0/( B*B+A*A) 
ZBKRL ( I ) « B*QUAN*DEN 
ZBKIM( I ) • -A*QUAN*DEN 
5006 RETURN 
END 




SUBROUTINE TERMIN 

C CALCULATES IMPEDANCE AND VOLTAGE AT INPUT TO INPUT TERMINATION. 

DIMENSION C<6 t 5,3), R<6 f 5,3>, AL(6,5,3), MP(5,3>, MC(5,3), 
1RAI5), RBC5), IORDR(5*, ZAKRL{3>» ZBKRL < 3 ) ? ZAKIM<3), ZBKIM(3) 

COMMON Ct Rt ALf MP, MQ, RA, RB» ZAKRL , ZBKRL, ZAKIM, ZBKIM, YARL, 
1YBRL, YAIMf Y8IM, ZARL, ZBRL, ZAIM, ZBIM» F, F2, IREC, ZPRL, ZPIM, 
2VPRLt VPIMt ZRLt ZIM, VRL, VIM, K, I f IRUNC, RAO, RBO, DEN, L, 
3INOX» REAL, AIMG, RLDEN, ANMIN, RLNUM, DENIM, A, 8, QUAN, IORDR , 
4LETTR, VAR1, IORO, ZARLK, ZBRLK, ZAIMK, ZBIMK,NSECT, NT 

COMMON XK, RK, ZOR, ZOI, VOR, VOI* 8ETA, DB » XIMAG 

GO TO (5t6), LETTR 

5 ZTRL = ZPRL 
ZTIM = ZPIM 
GO TO 7 

6 ZTRL » ZRL 
ZTIM « ZIM 

C 

C USE DRPTZ TO CALCULATE INPUT TERMINATION IMPEDANCE. 

C 

7 CALL DRPTZ 
ZBTRL » ZTRL+ZARL 
ZBTIM * ZTIM+ZAIM 
RK * ZARL 
XK * ZAIM 

REAL « VPRL*ZBTRL-VPIM*ZBTIM 
XIMAG" VPIM*ZBTRL+VPRL*ZBTIM 
DEN » ZTRL*ZTRL+ZTIM*ZTIM 

IF I DEN) i, 2, 1 
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I 9 Z PUNCH 101 

101 FORMAT (41HERRQR •DENOMINATOR IN TERM IN EQUAL TO ZERO ) 

PAUSE 

C 

C CALCULATE INPUT VOLTAGE REQUIRED TO PRODUCE SPECIFIED OUTPUT 

C TERMINATION VOLTAGE. 



C 



1 VKRL = (REAL*ZTRL+XIMAG*ZTIM)/OEN 
VKIM = (ZTRL*XIMAG~ZTIM*REAL)/DEN 
VPRL = VKRL 
VPIM * VKIM 
RETURN 
END 



o 
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SUBROUTINE LADDER 

DIMENSION C(6 f 5,3), R<6,5,3), AL(6,5,3), MP<5,3), MQ(5,3), 
lRA(5) t R8(5), IORDR(5), ZAKRL ( 3 ) t ZBKRL ( 3 ) > ZAKIM{3 ) , ZBKIM( 3 > 

COMMON Ct Rt Alt MP f MQ, RA, RB, ZAKRL » ZBKRL , ZAKIM, ZBKIM, YARLt 
1YBRL, YAIMf YBIM, ZARL, ZBRL, ZAIM, ZBIMf F, F2, IREC, ZPRL, ZPIM, 
2VPRLt VPIM, ZRLt ZIM, VRL , VIM, K, I, IPUNC, RAO , RBO » DEN r L, 
3INDX, REAL , AIMG, RLDEN, ANMIN, RLNUM, DENIM, A, B, QUAN, IORDR, 
4LETTR t VAR1, IORD, ZARLK, ZBRLK, ZAIMK, ZB IMK »NSECT , NT 

COMMON XK f RKt ZOR, ZOI, VQR , VOI, BETA, DB » XIMAG 
C COMPUTES RECURSION EQUATIONS FOR LADDER SECTIONS. 

C CALCULATES ZRLf ZIM, ZPRL * ZPIM, VRL, VIM, VPRL, VPIM* 

ZARLK » Z AKR L ( I ) 

ZAIMK * ZAKIMU) 

ZBRLK * ZBKRL ( I ) 

ZBIMK * ZBKIM(I) 

VPRL * VRL 

VPIM * VIM 

RLDEN » ZARLK+ZRL 

DENIM » ZAIMK+ZIM 

DEN » RLDEN*RLDEN+DENIM*DENIM 

RLNUM « ZARLK*ZR L-Z AI MK# ZIM 

XIMAG * Z AI MK*ZRL+ZI M* ZARLK 

RNUM * RLNUM*RLDEN+XIMAG*DENIM 

XMAG * XIMAG*RLDEN~RLNUM*DENIM 

IF ( DEN ) It 2t 1 
2 PUNCH 101 

101 FORMAT ( 32HERROR ,ZERO DENOMINATOR IN LADDER) r> g < 

PAUSE 
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ZPRL » RNUM/DEN 

ZPIM « XMAG/DEN 

ZRL = ZPRL+ZBRLK 

ZIM = ZPIM+ZBIMK 

DEN = ZPRL*ZPRL+ZPIM*ZPIM 

IF ( DEN ) 3 t 2, 3 

REAL = 1*0+ UBRLK*ZPRL+ZBIMK*ZPIM)/DEN 

XIMAG = (ZBIMK#ZPRL-ZPIM*ZBRLK) /DEN 

VRL = VPRL*REAL-VPIM*XlMAG 

VIM = VPRL*XIMAG+VPIM*REAL 

VPRL » VRL 

VPIM = VIM 

RETURN 

END 



SUBROUTING DRPTZ 

C CALCULATES IMPEDANCE AND ADMITTANCE FOR A TWO-TERMINAL IMPEDANCE 

C i ORDER ) • IE. YARL, YAIM, rBRL , YBIM , ZARL , ZAIM, ZBRL, ZBIM 

C l§« YARL* YAIM, YBRt, YBIM, ZARL , ZAIM, ZBRL , ZBIM 

DIMENSION C(6,5,3) » RI6,3,3), AL<6,5,3), MP<5,3>, MQIS,3>, 
1RA(5), fUHSVt IORDRI5), ZAKRL ( 3) , ZBKRL <3 ) > ZAKIMO), ZBKIMO) 

COMMON C, R* ALt MP, MO, RA, RB, ZAKRL, ZBKRL, ZAKIM, ZBKIM, YARL, 
1YBRL, YAIM, YBIM, ZARL, ZBRL, ZAIM, ZBIM, F, F2, IRECt ZPRL, ZPIM, 
2VPRI, VPIM, ZRL, ZIM, VRL, VIM, K, I, IPUNCt RAO , R80, DEN, L, 
3INDX, REAL t AIMG, RLDEN, ANMIN, RtNUM, DENIM, A, B, QUAN, IOROR, 
4LETTR, VAR1, IORD, ZARLK, ZBRLK , ZAIMK, ZBIMK ,NSECT, NT 
COMMON XK» RK, ZOR, ZOI, VOR, VOI , BETA, DB , *IMAG 
JVAL * MP<K f i) 
fARL * 0«0 
YAIM « 0#0 
L * 1 

11 If UVAL-L) 9, 10t 10 
10 INDX * L*2~l 

VAR1 * RUNDX,K,I) 

QUAN « F2*C«INDX,K,I) 

IP (QUAN) 3, 4, 3 

4 QUAN = Al(INOX,K»I)*P 
60 TO b 

3 QUAN «ULUNDX,K,I )~1.0/QUAN)*F 

5 DEN * UO/C VAR1*VARH-QUAN*QUAN) 
YARL = YARL+VAR 1*0EN 

2 7 1 

YAIM « YAlM-QUAN*DEN * 1 1 



L * L + l 
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GO TO 11 
9 DEN » Y AR L*Y ARL + YAIM*YAIM 
IF (DEN) 12 t 13, 12 

12 DEN « l.O/DEN 

13 ZARL * YARL*DEN 
ZAIM * -YAIM*DEN 
IVAL ■ MQ ( Kf I ) 
YBRL = 0.0 

YBIM = 0.0 
L « 1 

16 IF (IVAL-L) 14, 15, 15 
15 INDX * 2*L 

VAR1 = R(INDX,K,I ) 

QUAN = F2*C( INDX, K, I ) 

IF {QUAN) 6, 7, 6 

7 QUAN = AL(INDX,K,I )*F 
GO TO 8 

6 QUAN =( AL( INDX,K,U-1.0/QUAN)*F 

8 DEN « 1«0/<VAR1*VAR1+QUAN*QUAN) 
YBRL = YBRL+VAR 1*DEN 

YBIM * YBIM-QUAN*DEN 
L * L+l 
GO TO 16 
14 DEN * YBRL*YBRL + YBIM*YBIM 
IF { DEN) 17, 18, 17 

17 DEN s* l.O/DEN 

18 ZBRL * YBRl*DEN 21*1 
ZBIM = -YBIM*DEN 
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RETURN 
END 



c 
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FORTRAN II 



TO RSLOCABLS SUBRCOTOvTSS 



Address 

01510 

OI768 

O3158 

03182 

01418 

01574 

00986 

01022 

01058 

01800 

02052 

02152 

02380 

03280 

03300 

06020 

06052 

06528 

07316 

07348 

07416 

0744o 

07484 

07570 

07604 
07698 
07932 
08152 
08586 
09044 
09356 
09504 
09528 
09740 
09808 
09856 
09952 
10000 

CZlS(* 



Subroutine name 

swc 

C0r£PLT 

RATY 

RAPT 

RACD 

SLASH 

WATY 

WAPT 

V/ACD 

HTYPE 

REDO 

REP 

ITYPS ■ 

FTYPS 

ETYPE 
XTYPE 
ATYPE 
MATRIX 
FXA 
FXSR 
FXS 
' FXtt 
FXD 
FXDR 
RSGH 
FLOAT 
FIX 
FIXI 
FAXI 
FAXB 
FMFAC 
FSB 
FAD 
FSBR 
MP 
FD 

FDVR 
TOFAC 



Function 

1/0 
1/0 
1/0 
1/0 
1/0 
1/0 

I/O 

1/0 
1/0 

Hollerith conversion 

Multiple field specs. 

Multiple parenthesized specs 

I specification 

F specification . 

E specification 

X specification 

A specification 

Reading arrays 

I+J 

-(J*K)+I 

I-J 
I*J 
l/j 

1/(I/J) 

-I or -A 

A=I 

I=A 

I**J 

A**I 

A**B 

FAC to A 

A-B 

A+B 

-(A*B)+C 
A*B 

a/b 

V(A/B) 
A to FAC 
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INTERACTION OF COMMON AMD EQUIVALENCE IN UND I MENS 1 ONED VARIABLES. 

COMMON X,Y,Z # x / n . , v 
EQUIVALENCE (X, A) , (Y,B,C) , (Z,L) 

A=4. 15273^1 

B=2.*A 

R=X-f2 . 

S=B-*-R 

Z=X+Y+S 

STOP 

TURN SW N 1 ON FOR SYMBOL TABLE, PRESS START 

U043 I +1527301 
U051 20000001 
59999 X 

59939 A 
59991 Y 

59991 B 

59991 C 

59983 z 

59983 L 

11059 R 

T1067 s 

END OF PASS I 



17T0000T10U3 

170671059999 

17t0000Tl051 

170330859999 

170671059991 

171000059999 

170952811051 

170671011059 

17T00005999I 

170952811059 

170671011067 

171000059999 

170952859991 

1709528T1067 

170671059983 

340000010102 

3900^1700100 
483000000000 
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C COMMON STORAGE IN DIMENSIONED VARIABLES 

DIMENSION X(5), Y(2,5), Z(3,4,5) 
COMMON X,Y ' ' ' J 

STOP 
END 

IURN SW 1 ON FOR SYMBOL TABLE, PRESS START 
59959 X 59999 

59859 Y 59949 

110^5 Z T 1 63 5 

END OF PASS I 



C EXAMPLES TO DEMONSTRATE THE COMPLEX INTERACTION OF EQUIVALENCE AND 

C COMMON STORAGE ASSIGNMENT IN DIMENSIONED VARIABLES. 

DIMENSION X(5), Y(2,5), Z(3,^, 5) 

COMMON X 

EQUIVALENCE (Y,Z) 

STOP 

END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 
59959 X 59999 

T10**5 Y Tt 135 

T1045 Z T1635 

END OF PASS I 



ENTER SOURCE PROGRAM, PRESS START 

DIMENSION X(5),Y(2, 5), 2(3,^,5) 
COMMON X 

EQU I VALENCE ( X ( 5 ) , Y ( 1 ) , Z ( 60 ) ) 

STOP 

END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

29959 X 29999 

59909 Y 59999 

59^09 Z 59999 

END OF PASS I 



ENTER SOURCE PROGRAM, PRESS START 

DIMENSION X(5), Y(2, 5), Z(3,\5) 
EQUIVALENCE ( Y( 10) ,X(5) ,Z(60) ) 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

T1045 Z T1635 

115^5 Y T 1 63 5 

11595 X T1635 

END OF PASS I 



C EXAMPLES TO DEMONSTRATE THE COMPLEX INTERACTION OF EQUIVALENCE AND 

C COMMON STORAGE ASSIGNMENT IN DIMENSIONED VARIABLES 

DIMENSION X(5), Y(2,5), Z(3,4 5 5) 

EQUIVALENCE (Z(60),X(5} >; Y(10)) 

STOP 

END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

J 1045 Z T 1 63 5 

V-595 X 11635 

11545 Y 11635 

END OF PASS { 



ENTER SOURCE PROGRAM, PRESS START 

DIMENSION X(5), Y(2,5), Z(3,4,5) 

COMMON X 

EQUIVALENCE (X,Y,Z) 

STOP 

END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

59359 X 59999 

ERROR 55 

J J J J J i D p ;j. c J 

ERROR 55 

59359 Z S0549 

END OF PASS I 



ENTER SOURCE PROGRAM, PRESS START 

DIMENSION X(5), Y{2,5), Z(3,4,5) 

COMMON Z 

EQUIVALENCE (X,Y,Z) 

STOP 

END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

59^09 Z 59999 . 

59409 X 59449 

59409 Y 59499 

END CF PASS j 

ENTER SOURCE PROGRAM, PRESS START 

DIMENSION X(5), Y(2,5), Z(3,4,5) 

COMMON Y 

EQUIVALENCE (X(3 ) , Y(6) , Z( 1 5) ) 
t_ N D 

JURN SW 1 ON FOR SYMBOL TABLE, PRESS START 
53909 Y 59999 

53939 X 59979 

ERROR 55 

59319 Z 50403 <70 

END OF PASS S * • y 



C EQUIVALENCE STORAGE ASSIGNMENT. 

EQU I VALENCE (R,S) , (T.U ,V) , (R,L) 
EQUIVALENCE (A,B,C,D) 
R=1 .5 
A=R+3. 
L=B-f 1 . 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

1043 150000^1 
TV051 3000003V 
""1059 10000031 
1 067 R 
1067 S 
1067 L 
1075 T 
1075 U. 
107 5 V 
1083 A 
1083 B 
1083 C 
1083 D 
END OF PASS I 



171000011043 
17167 101 1067 
171000011067 
1709528T105T 
170671011083 
1Z10000H083 
170952811059 
1Z07 93 200000 

173671011067 
343000000102 
390041700100 
483000030000 



C COMMON STORAGE ASSIGNMENT. 

COMMON W,X. V Z 

W-1.5 C 

X=2.0 v 

Z=3.0 
Y=2.5 

A=W+X+Y+Z+0.5 
L=4. + 5. 

STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

71047 T50000000001 
T1059 200000000001 
T 1 07 1 100000000031 
J1083 250000000001 
1 1095 500000000000 
T 1 1 07 500000000001 
11119 500000000001 
59999 W 
59987 X 
59975 Y 
59963 Z 
11131 A 
■11141 L 
END OF PASS I 



€ 



17T0000T1047 
1ZI67 1059999 
171000011059 
1ZP7 1059987 
17100001 1071 
1Z067 1059963 
171000011083 
170671059975 
171000059999 
170952859987 
170952859975 
1Z$952859963 
1Z09528H095 
170671011 131 
171000011 107 
170952811119 
1Z0793200000 
1706710H141 
3^0000000102 
390041700100 
480000000000 



G 
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C GENERAL I/O 

READ 1, X,Y,L 
1 FORMAT(f10.3,E15.8,I5,5X,3HXY=O 

STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

U045 3001 
U055 X 
T1065 Y 
11070 L 
END OF PASS I 



2731M8T1040 
1p1510Tl055 
173l510Tl065 
1731510T10Z0 
173176800000 

001033033003 
153832380910 
360203103180 
030667683332 
052T1 1393^30 
000301023930 
417301004830 
0003000059T 



^^^^ . . _ 

1 FORMAT 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 
T1045 3001 

11065 Y1 ^ 
11075 Y2 
11085 Y3 
END OF PASS I 



2231418110^0 
1Z2151011055 
1Z|1510T1065 
1Z3151011075 
1731510H085 
173176800000 

toll 04533605 
200833280310 
3332256T1178 
3432052U173 
3^3000030102 
393041730100 
483000030000 



c 
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r I/O OF MATRICES WITHOUT THE IMPLIED DO LOOP. 

DIMENSION A(15) 
READ 1, A 
1 FORMAT (F10.3) 
STOP 

TURN SW N 1 ON FOR SYMBOL TABLE, PRESS START 

110^5-3001 

11055 A U195 

END OF PASS I 



273H+1811040 
163620303015 
163626303000 
1736528U045 
173176800030 
59T104533328 
001033020521 
12633^300003 
01023930^173 
010048300000 
0000 



C I/O OF MATRICES WITH THE IMPLIED DO LOOP, 

DIMENSION X(20) 
READ 1, (X(l),l-1 f 20) 
1 FORMAT (8F10.3) 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

Tl040 30001 
T1045 30020 
T1055 3001 
T1065 X T1255 
T1260 I 
END OF PASS I 



2221^1811050 
261 12601 10^+0 
TiTl260000T0 
113009911055 
323009530000 
273151030099 

Tn 126030301 

251 12601 1045 
57T 12860 1100 
173176800030- 
59T1 05533328 
001 03302 152T 
13943832052T 
13893^300003 
010239304173 
010048300000 
0000 



C SAMPLE PROBLEM. 

X a A + B + C*D 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

T1045 X 
U055 A 
T1065 B 
T1075 C 
U085 D 
END OF PASS I 



17T000011055 
1739528T1065 
17I9356T1 139 
1+91 114030000 
0000001ZT000 
0T10751Z3980 
8T10851Z3952 
8T1 139173671 
0T 1045343000 
030102393041 
730100483000 

0300005 



^ ENTER SOURCE PROGRAM, PRESS START 
%JC SAMPLE PROBLEM. 

X = C*D + A + B 

STOP 

END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

U045 X 
T1055 C 
T1065 D 
T1075 A 
T1085 B 
END OF PASS I 



1ZT0000T1055 
173980811065 
1739528T1075 
1Z39528T1085 
173671011045 
343000030102 
393041730100 
483000030000 



c 



C SAMPLE PROBLEM* 
X - A*B*C**4 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 
T1040 30004 



END OF PASS I 



17T0000U060 
1709808T1070 



00000012T000 
0T 1080 173858 
6T 1040 17 0980 
8T1 135173671 
0T 1050343000 
030102390041 
730100483000 
030000591 



11050 
T1060 

T 107.0 
11080 



X 
A 
B 
C 




287 



114 



C SAMPLE PROBLEM. 
X = C**4 *A*B 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

U040 30004 



END OF PASS I 



12I0000H060 
170858611040 

1739808U070 
1739808T1080 
173671011050 
343000030102 
393041730100 
483000030000 



T1050 
T1060 

T1070 
T1080 



X 

c 

A 
B 




o 



28& 



C SAMPLE PROBLEM. 
X = C***f. *A*B 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

U045 5000000001 
T1055 X 
T1065 C 
T1075 A 
11085 B 
END OF PASS I 



1ZT0000I1065 
1Z090M*1 10^5 
1Z09808U075 
1Z09808U085 
1706710*11055 
340000000102 

390041700100 ^> 
480000000000 




C SAMPLE PROBLEM. 
X r» A*B - C*D 
Q STOP 

TURN SVM ON FOR SYMBOL TABLE, PRESS START 

U045 X 
U055 A 
T1065 B 
T1075 C 
T1085 D 
END OF PASS I 



o 



17T0000U055 
173980811065 
170935611139 
WU 14030000 

17367 112^000 
0110751ZI980 
8U0851Z3974 

011139173671 
0T 1045343000 
030102393041 
730100483000 
03000059T 



c 



C SAMPLE PROBLEM. 
TEMP = A * B 
X « C*D - TEMP 
STOP 
END 

TURN SW J ON FOR SYMBOL TABLE, PRESS START 

1 1 045 TEMP 

11055 A 

11065 B 

11075 X 

11085 C 

11095 

END OF PASS I 



12T0000T1055 
1Z§9808Tl065 

1Zl6710Tl0Zf5 ^ 

1210000T1085 Q 

1Z|9808Tl095 

1Z|9504T10^5 

17067 10Tl 075 

340000000102 

390041700100 
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° n!MPMfml, N A^< D 2y! L ^ A £9 TRIP !: E SUBSCRIPTION EXAMPLE 
DIMENSION A(5),B(2,4).C(2,2,2) 

Q ERR0R ' VALENCE (A3, a( 3 55, te, ' B (2,3)), (C1 >C (1 ,2, 1 )) 

B2 = 23. 
CI « 121. 
A2 - B2 + C1 
STOP 
END 

END OF PASS I 

ENTER SOURCE PROGRAM, PRESS START 



SIMPLE SINGLE, DOUBLE 
DIMENSION A(5),B(2 



AND TRIPLE 
;2.2,2) 



SUBSCRIPTION EXAMPLE. 



EQUIVALENCE (A3, A?3 i 5?f B2 , B(7) } , (C1 ,C(3 ) ) 



TURN 



B2 - 

C1 = 
A2 = 
STOP 
END 
SW 1 ON 



23. 
121 . 

B2 + 



C1 



FOR SYMBOL TABLE, PRESS START 



I 1045 2300000032 
11055 T2 10000003 



1 1065 
T1085 
T1115 
11175 
11195 
1 1215 
T1275 
END OF 



A 
A3 
B 
B2 
C 
CI 
A2 
PASS 



11105 
Tl 185 
T1265 



CARDS NOT IN ORDER 

SW1 ON TO PUNCH SUBROUTINES, PRESS START 
END OF PASS II 

SV/1 ON TO PUNCH SUBROUTINES, PRESS START 
END OF PASS II 
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TiTi0if 523002 

210009911040 
260003900029 
1 100039300 10 
1l30099Tl100 
323009530000 
263048530099 
1739356T1395 
591 139630000 
000000121000 
0T1 055273671 
0T1395T2U06 
003002210009 
9Tl 040260003 
900099123003 
903002210009 
9T1 060260003 
900029120003 
930010113009 
911140323009 
530000263048 

530099173935 
6T139517T000 
0Tl 070273671 
0T1325T3T104 
500010113009 
9T1 070323009 
53000026001+8 

530099173935 
6T1395T2T104 
503002210009 
9T1 040260003 
900029120003 
930010110009 
9Tl 100323009 
53000027T000 
030099U1106 
003002210009 
9T 1040260003 
900099133003 
9030022T0009 
9T1060260003 
900029120003 
930010113009 
9T1 140323009 
530000173935 
6T185759T185 
830000000000 
22T000030099 
1Z39528T1857 
2736710T1395 
343000030102 
393041730100 
483000030000 



C SIMPLE SINGLE, DOUBLE AND TRIPLE SUBSCRIPTION EXAMPLE. 

DIMENSION A(5} f B(2,4),C(2,2,2) 
B(2,3) « 23. 
C(1.2,1) = 121. 
A(3)=B(2,3) + C(1,2,1) 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

T 104=0 10002 
Tl045 00003 
11055 2300000032 
11060 30001 
11070 T2 100000^3 
1 1080 A Tl-120 

T1130 B T1200 

T1210 C T1280 

END OF PASS I 



121000011045 
12367 101 1175 
12100001 1055 
17167 10T12 15 
121000011175 
1239528T1215 
1 7067 1 0Tl 275 
343000000102 

3 930^1730100 
483000000000 



rnTi-r> r Aimrr nnr>rn«u 



onrcr ptadt 



SAMPLE PROBLEM SHOWING POLYNOMIAL EXPRESSION W/O NESTING. 
DIMENSION X(10).A(20) 
READ 1, NPTS,(X(l),l=1,NPTS) 
DO 30 1=1,20 
Al = I 
A(l ) = Al 
DO 20 l=1,NPTS 
SUM = 0.0 
XX = X(l ) 
DO 10 K=1,20 
KK= K-1 
AK= A(K) 

SUM = SUM + AK *XX**KK 
PRI NT 2, SUM, I ,XX 

FORMAT (2X,4HSUM=E15.8,7HWHEN X ( I 2 ,2H)=E 1 5 .8) 
FORMAT (I2/8E10.3) 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

T1040 30001 
Tl 0^5 00020 
U055 1000000099 
11065 0001 
11070 2030 
T1075 0020 
11080 2010 
11090 0002 

C Til 00 X 11190 

■ T1200 A 11390 

11395 NPTS 
11400 I 
11410 Al 
11420 SUM 
T1430 XX. 
U435 K 
11440 KK 
T1450 AK 
END OF PASS I 



30 



10 
20 
2 
1 



C SAMPLE PROBLEM SHOWING POLYNOMIAL EXPRESSION W. NESTING. 
DIMENSION X(10).A(20) 
READ 1, NPTS,(X(|), |=1,NPTS) 
DO 30 1=1,20 
A| = I 
30 A(l ) - Al 

DO 20 l=1,NPTS 
XX ~ X ( I ) 

PROD » A(20)*XX + A(19) 
DO 10 K=3,20 
MK=21-K 
10 PROD - PROD*XX+ A(MK) 
20 PRINT 2. PROD, I , XX 
2 FORMAT (2X,4HSUM=E15.8,7HWHEN X( 1 2,2H)=E1 5.8) 
1 FORMAT (I2/8E10.3) 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

Tl0*f0 30001 
T1045 30020 
T1050 30019 
T1055 30003 
T1060 30021 
T1070 3001 
T1075 3030 

11080 3020 

T1085 3010 
Tl095 3002 
Tl 105 X 71195 

T1205 A T1395 

11400 NPTS 
T1405 i 
T1415 Al 
T1425 XX 
T1435 PROD 
7l*t40 K 
l\kkS MK 
END OF PASS 1 
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C SAMPLE PROBLEM SHOWING COMPUTED AND UNCONDITIONAL 60 TO @S. 

L=1 
3 Y=4 
X=2 
A=X+Y 

GO TO (1,2), L 

1 L=2 

GO TO 3 

2 STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

T1040 30001 
U045 30004 
T1050 30002 
11055 1003 
T1060 0001 
T1065 3002 
T1070 L 
T1080 Y 
T1090 X 
T1100 A 
END OF PASS I 



12T0000T1040 

12367 10*11070 
17T0000T1045 
\l3l 6 9800030 
123671011080 
17T0000Tl050 r 
173769800030 
123671011090 
12T0000T1090 
1739528T1080 
17367 10T1 100 
T3T 107000005 
12300921 1264 
4900O99T1063 

T1 06501 7 10^0 
0T 1050 173671 
0T 107 0^91 105 
530000343000 
030102393041 
730100483000 
03000059 



C SAMPLE PROBLEM USING A DO LOOP 

DIMENSION X( 10) 
DO 5 1=1,10 
5 X(l) = I 
STOP 
END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS 
&T T S 



T 1 0^0 30001 

Tl0'-f5 30010 

T1050 0005 

Tl 060 X Tl 150 

11155 I 

END OF PASS I 



2ST1 1551 1040 
111 1 15500010 
1 1^009911050 
323009530000 
263048500099 
17393 561 1245 
591 124630000 
000005171000 
0Tl 1551Z1769 
800000270671 

0T1245T1T1 15 

53000 124T1 15 
51 10454711 16 
801 100340000 
000102393041 
700100480000 
030000^9 



ruTrn rrvunrr rvnnrn 



nnrcr c t a dt 



C SAMPLE PROBLEM USING IF STATEMENT 



2 B= 0.0 
GO TO 4 

3 B= 1.0 

4 STOP 
END 

TURN SV/ 1 ON FOR SYMBOL TABLE, PRESS START 

U045 T000000001 
T1055 3000000099 
T1060 5001 
T1065 3002 
T1070 300? 
11075 3004 
11085 A 
T1095 B 
END OF PASS I 



$9T 106500000 
5411(37030483 
59T1060017JL0 
000U0451707 
604000301736 

71011095^2^ 
0753000017T0 
0001 10551736 

710110955211 

07500000 17T0 

000*1 10451736 
710U0953430 
000301023 930 
417001004830 

0003000059T 




IF (A) 1,2,3 
1 B= -1.0 

GO TO 4 




o 



ENTER SOURCE PROGRAM, PRESS START 



2 9 5 



C SAMPLE PROBLEM USING IF STATEMENT 

B= 1.0 

IF (A) 1,2,4 

1 B= -1 .0 

GO TO 4 

2 B= 0.0 
if STOP 

END 

TURN SW 1 ON FOR SYMBOL TABLE, PRESS START 

T1045 T000000031 
T 1 5 5 3000000053 
1 1060 5001 
T1065 3002 
T1070 3004 
T1 080 B 
T1090 A 
END OF PASS. I 



1Z1 00001 1045 
1Z367101 1080 
17T0000T1090 
173671030485 
53ll 16430476 
59T106S00000- 
541107030483 
59T 106301710 
000T10451Z07 
604000301706 
7101 108059U 
070300001ZT0 
000T1 055 1736 
7 10T1 0803430 
000301023 930 
417301004830 

0003000059 
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FORTRAN II AND THE 1443 
Lanny L. Hoffman 



PRINTER FN II SUb. LUCATIDNS. 



0048 5 


F AC 


F L I J A 1 1 N b A C C U ■■ ■ 0' 1. . A 1 ' 1 ' 


01314 


TUF AC 


A T U F A C 


p 13 5 8 


F M F A C 


F A C T A 


0140 2 


TRACt 


P R 1 N T F A C i 1.) T U F n F A 


01482 


F X A 


I + J 


01514 


FXS 


I - J 


01538 


FXSR 


- ( J K ) + I 


015 62 


XRSGN 


- I 


01608 


FXM 


I -«- J 


(J 1 6 5 2 


FXO 


I / J 


01738 


FXUR 


1 / ( I / J ) 


01772 


FIX 


1 = A 


2112 


FLU AT 


A=I 


2336 


R SO N 


-A 


2 336 


FSBR 


-( A*B)+C 


2430 


F AO 


A+B 


3 002 


F S B 


A-B 


3046 


F M P 


A* B 


03218 


Ft) 


A/B 


03434 


FDVR 


1/ ( A/B ) 


03 53 8 


FIXI 


I J 


03960 


FAX I 


A** I 


04 550 


FAXB 


A * B 


049 20 


W A T Y 


I / 


0499 2 


WACO 


I /(.) 


05028 


PR A 


I/O ( P R I N T ALP H ) 


53 04 


RATY 


I /O 


05364 


R AC D 


I / 


05408 


SLASH 


I /U 


05650 


COiPLT 


I /U 


5 690 


REP 


MULTIPLE PARENTHESIZED 


060 66 


SWC 


I/U 


06122 


MATRIX 


READING ARRAYS 


06280 


re on 


MULTIPLE FIELD SPECS. 


05794 


XTYPE 


X SPECIFICATION 


58 26 


HTYPE 


H SPECIFICATION 


063 5 


ATYPE 


A SPECIFIC ATI UN 


06842 


I TYPE 


I SPECIFICATION 


07 830 


FTYPE 


F SPECIFICATION 


078 50 


ETYPE 


E SPECIFICATION 


01976 


ERR MESS 


PRINT ERROR MESSAGE 


01924 


PASS I 


PASS I INIT. 


00684 


PASS II 


PASS II I N IT. 


01938 


SPS I 


SPS PASS I INIT. 



n o ') 

O v) ^ 



SUBPROGRAM 



SUBROUTINE X(A,B,C,D) 
C = A + B 
D = A-B 

RETURN 
END 



CALL X ( ALFA, BETA , GAMMA , DELTA ) 



MAIN LINE 



CALLING SEQUENCE 



BTM XC ELL, ---+11 ,6 

DSA ALFA, BETA, GAMMA , DELTA 



SUBPROGRAM 

GENERATED 

MATERIALS 



DS 5 

XPGM AM XPGM-1,5,010 

TF A, XPGM- 1,01 11 

BNF * +36, A, 01 

CF A,,0 

TF A, A, 0111 

AM XPGM-1,5,010 

TF B, XPGM- 1,01 11 

BNF *+36,B,01 

CF B,,0 

TF B,B,0111 

AM XPGM-1,5,010 

TF CXPGM-l ,0111 

BNF *+36,C,01 

C F C,,0 

TF CCOlll 

AM XPGM-1,5,010 

TF D,X PGM- 1,0111 

BNF *+36,D,01 

C F D , , 

TF D,D,0111 

AM XPGM- 1,1,010 

BT T0FAC,A,1 

BT F AD , B , 1 

BT FRMFACC1 

BT TOF AC , A , 1 

BT FSB,B,1 

BT F R M F AC , D , 1 

B XPGM-1,,06 



FLAG CONVENTION 

IF P IS RELOCATABLE, FLAG OPERAND IS 
IF Q IS RELOCATABLE, FLAG OPERAND IS 1 

NORMAL FLAG OPERANDS ARE STILL IN EFFECT FOR 

IMMEDIATE AND INDIRECT ADDRESSING. 
FLAGS ARE USED OVER THE OPERATION CODE TO DENOTE RELOCATION TO 
THE LOADER. THESE FLAGS DO NOT ALTER THE OPERATION OF 
THE INSTRUCTION. 



C TEST PROGRAM FOR 1,443 PRINTFR PLOT, SIN (X) VS. X. 

C 

DIMENSION X(500) ,Y( 500) 

PRINT 10 
10 FORMAT (1H1) 
T = 0. 

DO 1 1=1,200 
X ( I )=T 

Y(I)=SINF(T) 
T=T+.01*3. 14159 
1 CONTINUE 
PAUSE 

CALL PLOT ( X, 10. »0 . » 5, Y , 1. ,-1 . » 10, 200 ) 

STOP 
END 
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C FORTRAN SUBROUTINE FOR 1443 PRINTER PLOTTING, 

C BY L. HOFFMAN, GUGGENHEIM LABS. 

C 

S U B ROUTINE P L T ( X , X M A X , X M I N , N X , Y , YM A X , YM I N , N Y , M ) 
D I MENS I ON DUMMY ( 2 ) , OUTPUT ( 102 ) , X ( 2 ) , Y ( 2 ) 
XCHAR=.20 
YCHAR=.71 
CHAR=. 14 
BLANK=0. 
XN0=100. 
N0X=XN0+1. 
YL ABEL=YMAX 
DX=(XMAX-XMIN)/XNO 
DY = ( YMAX-YMIN ) /50. 
C MOVE MAX DOWN BY ONE-HALF BOX.... 

Y Y M A X = Y M AX + . 5 * D Y 
XXMIN-XMIN-. 5*DX 

C 

KY = 

NX1=NX+1 
DO 1 1=1,51 
C CALL INIT (OUTPUT, BLANK) 

DO 111 II2=1,N0X 
111 OUTPUT ( I I 2 ) =BLANK 

C CALL GRID(OUTPUT,DX,DY,NX,NY,KY,I,XCHAR,YCHAR,lND) 

IND = 

IF( I-1-50*KY/NY) 21 1 , 222, 211 

222 DO 332 JJ=1,N0X 

332 OUTPUT( JJ )=XCHAR 

IND=1 

KY=K Y+ 1 
211 DO 444 JJ=1,NX1 

12= ( ( JJ-1 ) * (NOX-1 ) ) /NX 
444 OUTPUT ( 12+1 )=YCHAR 

Z I = I 

UP = YYMAX-( ZI-1. )*DY 
DOWN=UP-DY 

Z CALL F IIMDY { X , Y , UP , DOWN , OUTPUT , N , D X , DY , XMAX , XM IN , CHAR ) 

DO 1121 IF=1,N 

IF(Y(IF)-UP)2221, 1121, 1121 
2221 IF(Y( IF)-DOWN)1121,3331,3331 

3331 CONTINUE 

JJ=(X( IF )-XXMIN) /UX 

JJ=JJ+1 

OUTPUT ( J J )=CHAR 
1121 CONTINUE 

8 IF ( IND) 10, 10, 11 
10 PRINT 2, ( OUTPUT ( J) , J=1,N0X) 

2 FORMAT ( 1 2X , 50 A 1 , 51 A 1 ) 
GO TO 12 

11 PRINT 3,YLABEL, (OUTPUT(J) ,J=1,N0X) 

3 FORMAT ( IX, E 10. 3, 1X,50A1, 51 A 1 ) 
12 YLABEL=YLABEL-DY 

1 CONTINUE 
RETURN 
END 
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FORTRAN II SPS SUBROUTINES, L. HOFFMAN, GUGGENHEIM LABS. 



ASSEMBLY AND FINAL PHASE OF SPS SUBS. FDR FN II. 

1) USE 1620/1710 SPS TO ASSEMBLE AND COMPRESS THE SPS PROGRAM. 

2) REMOVF THE FIRST TWO (2) AND THE LAST SEVEN (7) CARDS FROM THE 
COMPRESSED DECK. (THIS DOES NOT INCLUDE THE TWO BLANK CARDS AT THE 
END OF THE DECK) 

3) ADD HEADER CARD AS NO. 1. 

4) ADD TRAILER CARD TO END OF DECK. 

5) CORRECT DSA'S , IF ANY, USED IN THE SPS PROGRAM , OT HE RW I SE , GO TO 7. 

6) PUNCH A FLAGGED ZERO IN COLUMN 62 OF ALL OBJECT DECK CARDS 
PRODUCED BY DSA'S IN SPS PROGRAM. 

7) CHECK FOR RELOCATABLE CONSTANTS, IF NONE, THEN GO TO 9. 

8) PUNCH A FLAGGED 1 IN COLUMN 62 OF ALL CONSTANTS NOT TO BE 
RELOCATED. 

9) PUNCH NEW CARD NO. IN TRAILER CARD TO CONTINUE SEQUENCING. 
10) THE DECK CAN NOW BE USED WITH A FORTRAN CALL STATEMENT. 



THE HEADER CARD 



COLS. 1-12 



COLS. 
COLS . 
COLS. 
COLS. 
COLS. 
COLS . 



13-20 
21-22 
23-24 
25-62 
63 

64-80 



SUBROUTINE NAME IN TWO-DIGIT ALPHANUMERIC FORM WITH FLAG 

OVER HIGH ORDER DIGIT AND RIGHT JUSTIFIED. 
BLANK 

FF, LENGTH OF FLOATING MANTISSA, FLAG OVER HIGH ORDER DIGIT. 
KK, LENGTH OF FIXED MANTISSA, FLAG OVER HIGH ORDER DIGIT. 
BLANK 

RECORD MARK (0-2-8) 

BLANK, EXCEPT FLAG IN COL. 78 



THE TRAILER CARD • 

COLS. 1-62 BLANK 
COLS. 63 FLAGGED 1 

COLS. 64-80 BLANK, EXCEPT FOR CARD MO. IN COL. 78-80. 



# 



PLOT FOR 1443 PRINTER, L. HOFFMAN GUGGENHEIM LABS. 



AN EXAMPLE OF AN SPS SUBROUTINE FOR FN II . 



11036 








4/24 




DORG 


11036 




11040 




00005 




AUTO 


PLOT 


DS 


5 




11045 




00005 




AUTO 


X 


DS 


5 




11050 




00005 




AUTO 


XMAX 


DS 


5 




11055 




00005 




AUTO 


XMIN 


DS 


5 




11060 




00005 




AUTO 


NX 


DS 


5 




1 1065 




00005 




AUTO 


Y 


DS 


5 




11070 




00005 




AUTO 


YMAX 


DS 


5 




11075 




00005 




AUTO 


YMIN 


DS 


5 




11080 




00005 




AUTO 


NY 


DS 


5 




1 1085 




00005 




AUTO 


N 


DS 


5 




1 1092 




00007 




AUTO 




DS 


7 

END 


OF ARGUMENT ADI 


11094 


Jl 


11093 


000-5 


AUTO 


START 


AM 


START 


-1 ,5,010 


11106 


KO 


11045 


1109L 


AUTO 




TF 


X 


,START-1 ,0111 


11118 


MM 


11154 


11045 


AUTO 




BNF 


* + 36 , 


X ,01 


11130 


L3 


11045 


00000 


AUTO 




CF 


X 


,,0 


11142 


KO 


11045 


1104N 


AUTO 




TF 


X 


,X ,0111 


11154 


Jl 


11093 


000-5 


AUTO 




AM 


START 


-1,5,010 


11166 


KO 


11050 


1109L 


AUTO 




TF 


XMAX 


,START-1 ,0111 


11178 


MM 


11214 


11050 


AUTO 




BNF 


* + 36 , 


XMAX ,01 


11190 


L3 


11050 


00000 


AUTO 




CF 


XMAX 


, ,0 


11202 


KO 


11050 


1105- 


AUTO 




TF 


XMAX 


,XMAX ,0111 


11214 


Jl 


11093 


000-5 


AUTO 




AM 


START 


-1 ,5,010 


11226 


KO 


11055 


1109L 


AUTU 




TF 


XMIN 


,START-1,0111 


11238 


MM 


11274 


11055 


AUTO 




BNF 


* + 36 , 


XMIN ,01 


11250 


L3 


11055 


00000 


AUTO 




CF 


XMIN 


, ,0 


1 1262 


KO 


11055 


1 105N 


AUTO 




TF 


XM IN 


, XMIN ,0111 


11274 


Jl 


1 1093 


000-5 


AUTO 




AM 


START 


-1,5,010 


1 1286 


KO 


11060 


1 109L 


AUTO 




TF 


NX 


,START-1,0111 


11298 


MM 


11334 


1 1060 


AUTO 




BNF 


* + 36, 


NX ,01 


11310 


L3 


11060 


00000 


AUTO 




CF 


NX 


, ,0 


11322 


KO 


11060 


1106- 


AUTO 




TF 


NX 


,NX ,0111 


11334 


Jl 


11093 


000-5 


AUTO 




AM 


START 


-1 ,5,010 


11346 


KO 


11065 


1109L 


AUTO 




TF 


Y 


,START-1,0111 


11358 


MM 


11394 


11065 


AUTO 




BNF 


* + 36 , 


Y ,01 


11370 


L3 


11065 


00000 


AUTO 




CF 


Y 


, ,0 


11382 


KO 


11065 


1106N 


AUTO 




TF 


Y 


,Y ,0111 


11394 


Jl 


11093 


000-5 


AUTO 




AM 


START 


-1,5,010 


11406 


KO 


11070 


1109L 


AUTO 




TF 


YMAX 


,START-1,0111 


11418 


MM 


1 1454 


1 1070 


AUTO 




BNF 


* + 36 , 


YMAX ,01 


1 1430 


L3 


11070 


00000 


AUTO 




CF 


YMAX 


, ,0 


11442 


KO 


11070 


1107- 


AUTO 




TF 


YMAX 


, YMAX ,0111 


11454 


Jl 


11093 


000-5 


AUTO 




AM 


START 


-1 ,5,010 


11466 


KO 


11075 


1109L 


AUTO 




TF 


YMIN 


,START-1,0111 


11478 


MM 


11514 


11075 


AUTO 




BNF 


# + 36 , 


YMIN ,01 


11490 


L3 


11075 


00000 


AUTO 




CF 


YMIN 


, ,0 


11502 


KO 


11075 


1107N 


AUTO 




TF 


YMIN 


, YM IN ,0111 


11514 


Jl 


11093 


000-5 


AUTO 




AM 


START 


-1,5,010 


11526 


KO 


11080 


1109L 


AUTO 




TF 


NY 


,START-1.,0111 


11538 


MM 


11574 


11080 


AUTO 




BNF 


* + 36 , 


NY ,01 


11550 


13 


11080 


00000 


AUTO 




CF 


NY 


, ,o 


11562 


KO 


11080 


1108- 


AUTO 




TF 


MY 


,NY ,0111 


11574 


Jl 


11093 


000-5 


AUTO 




AM 


START 


-1 ,5,010 


11586 


KO 


11085 


1109L 


AUTO 




TF 


N 


,START-1,0111 


11598 


MM 


11634 


11085 


AUTO 




BNF 


* + 36, 


N ,01 


11610 


L3 


11085 


00000 


AUTO 




CF 


N 


,,0 



307 



1 1 6 2 2 


Kl I 


11 OH 5 


11 Oh o 


AUTO 




TF 


IV , 


11634 


Jl 


1 1093 


000-2 


AUTO 




AO 


STAKT-1 , 2 , 


1164-6 


H9 


12074 


00 000 


A U T u 




B 


A HOUND , , 


11654 








.AUTO 




D i 1 K G 


*-3 

SYMBOL T A 


OC010 




OOUOO 




3/17 


FF 


OS 


, 1 o 


00 5 




00 00 




3 / 1 7 


KK 


S 


, 5 


004-85 




OOOUO 




3/17 


F AC 


OS 


, 4 8 5 


01402 




00000 




4/2 3 


TkACF 


OS 


, 1402 


01652 




00000 




4/2 3 


F X D 


DS 


,1662 


2 3 3 6 




00 000 




4/2 3 


RSGK 


DS 


,2336 


02112 




00000 




4/2 3 


FLOAT 


OS 


,211? 


01772 




00 00 




4/23 


F I X 


OS 


,17 7 2 


01358 




0000 




4/2 3 


FnFAG 


OS 


,13 5 8 


03U02 




00 00 




4-/2 3 


F S B 


DS 


, 300 2 


02 4-30 




ooooo 




4/2 3 


FAD 


DS 


, 2 430 


233 6 




00 000 




5012 


FSB K 


OS 


,2 336 


03 04-6 




ooooo 




4/2 3 


F P 


DS 


,3046 


3218 




ooooo 




4/23 


F V 


DS 


,3218 


034-34 




ooooo 




4/2 3 


FOVR 


DS 


, 3434 


01314 




ooooo 




4/23 


THFAC 


DS 


,131 4- 


05028 




ooooo 




4/23 


!i AT Y 


DS 


, 502 8 


06066 




ooooo 




4/2 3 


SWC 


DS 


,6066 


05650 




ooooo 




4/2 3 


COM PL T 


DS 


, 5 6 5 


11658 




00005 




4/23 


Fi T 


DC 


5 ,5794 


11661 




0000 3 




4/23 




DC 


3,002 


11666 




0000 5 




4/23 




DC 


5,7850 


11669 




00003 




4/2 3 




DC 


3,01 


11671 




0000 2 




4/23 




DC 


2 ,03 


11676 




00005 




4/23 




DC 


5 ,5794 


11679 




00003 




4/23 




DC 


3,00 2 


11684 




00005 




4/24 


KFDO 


DC 


5,628 


11687 




00012 






our' out 


DAC 


1 2 , 


11711 




00102 




3/13 


OUTPUT 


OAS 


102 


11915 




00001 








DAC 


It ' 


11920 




00005 




3/22 


I 


DS 


KK 


11924 




00004 




3/22 


J J 


DS 




11927 




0000 3 




3/25 


112 


DS 


3 


11932 




0000 5 




3/22 


12 


DS 


5 


11937 




00005 




3/22 


IF 


DS 


5 


11947 




00010 




3/22 


ZI 


DS 


FF 


11957 




00010 




3/22 


UP 


DS 


FF 


11967 




00010 




3/22 


DOWN 


DS 


FF 


11972 




00005 




3/22 


COUNT 


DS 


5 


11980 




00 008 




3/22 


HAL F 1 


DC 


8 , 50000000 


11982 




00002 




3/22 


HALF 


DC 


2,00 


11992 




00010 




3/22 


YYMAX 


DS 


FF 


12002 




00010 




3/22 


DY 


DS 


FF 


12012 




00010 




3/22 


DX 


DS 


FF 


12022 




00010 




3/22 


YL ABEL 


DS 


FF 


12023 




00001 




3/22 


I WD 


DS 


1 


12028 




00005 




3/22 


MOX 


DS 


KK 


12036 




0000 8 




* * * * 


XWOl 


DC 


8 , 10000000 


12038 




00002 




***** 


XNO 


DC 


2,03 


12046 




00008 




3/22 


0NE1 


DC 


8 ,10000000 


12048 




0000 2 




3/22 


00 E 


DC 


2,01 


12056 




00008 




3/22 


Fl 


DC 


8 ,50000000 


12058 




00002 




3/22 


FIFTY 


DC 


2,02 


12063 




00005 




3/22 


KY 


DS 


KK 


12073 




00010 




3/25 


XXM IN 


OS 


FF 


12074 


IP 


01314 


J2038 


3/22 


AROUND 


BTM 


TOFACfXNO, 



12086 


IP 


02430 


J2048 


3/22 




BTM 


FAD, ONE, 17 


12098 


17 


01772 


000-0 


3/22 




BTM 


FIX, 0,10 


12110 


K6 


12028 


00485 


3/22 




TF 


NOX,FAC,0 


12122 


29 


01314 


11070 


3/22 




BT 


TOFACYMAX, 1 


12134 


IP 


01402 


J2022 


3/24 




BTM 


TRACE, YLABEL, 17 


12146 


2P 


03002 


11075 


3/22 




BT 


FSB » YM IN > 1 


12158 


IP 


03218 


J2058 


3/22 




BTM 


FDV, FIFTY, 17 


12170 


IP 


01402 


J2002 


3/24 




BTM 


TRACE, DY, 17 










3/22 


* 






12182 


2P 


01314 


11050 


3/22 




BT 


TOFAC , XMAX , 1 


12194 


2P 


03002 


11055 


3/22 




BT 


FSB,XMIN,1 


12206 


IP 


03218 


J2038 


3/22 




BTM 


FDV,XN0,17 


12218 


IP 


01402 


J2012 


3/24 




BTM 


TRACE, DX, 17 










3/22 


* 






12230 


IP 


03046 


J1982 


3/25 




BTM 


FMP ,HALF , 17 


12242 


2P 


02336 


11055 


3/25 




BT 


FSBR,XMIN,1 


12254 


IP 


01402 


J2073 


3/25 




BTM 


TRACE, XXMIN, 17 


12266 


IP 


01314 


J2002 


3/25 




BTM 


TOFAC, DY, 17 


12278 


IP 


03046 


J1982 


3/22 




BTM 


FMP , HALF , 17 


12290 


2P 


02430 


11070 


3/22 




BT 


FAD , YMAX , 1 


12302 


IP 


01402 


J 1992 


3/24 




BTM 


TRACE, YYMAX, 17 










3/22 


* 






12314 


J6 


12063 


0-000 


3/22 




TFM 


KY,0,08 


12326 


J6 


11920 


00-01 


3/22 




TFM 


1,1,09 


12338 


J6 


11927 


00-01 


3/25 


RTN1 


TFM 


112,1,09 


12350 


JO 


11972 


J1711 


3/22 


RTN111 


TFM 


COUNT, OUTPUT, 017 


12362 


KJ 


11972 


11927 


3/22 




A 


COUNT, 112,01 


12374 


KJ 


11972 


11927 


3/22 




A 


COUNT, 112, 01 


12386 


J6 


1197K 


ooo-o 


3/22 




TFM 


COUNT, 0,0610 


12398 


Jl 


11927 


000-1 


3/22 




AM 


112,1,010 


12410 


KM 


12028 


11927 


3/24 




C 


NOX, 112,01 


12422 


M6 


12350 


01300 


3/24 




BNN 


RTN111,,0 


12434 


J5 


12023 


00000 


3/22 




TDM 


IND,0,0 










3/22 


* 






12446 


J 3 


12063 


-005- 


3/22 




MM 


KY, 50, 0711 


12458 


32 


00095 


00000 


3/23 




SF 


99-KK+l 


12470 


26 


00485 


00099 


3/22 




TF 


FAC , 99 


12482 


2P 


01652 


11080 


3/22 




BT 


F X D , N Y , 1 


12494 


12 


00485 


000-1 


3/22 




SM 


FAC, 1,10 


12506 


2J 


00485 


11920 


3/22 




A 


FAC, 1,1 


12518 


14 


00485 


0-000 


3/22 




CM 


FAC,0,8 


12530 


M7 


12662 


01200 


3/22 




BNE 


1211, ,0 










3/22 


* 






12542 


J6 


11924 


00-01 


3/25 


1222 


TFM 


JJ,1,09 


12554 


JO 


11972 


J1711 


3/22 


RTN332 


TFM 


C0UNT,0UTPUT,017 


12566 


KJ 


11972 


11924 


3/22 




A 


COUNT, JJ, 01 


12578 


KJ 


11972 


11924 


3/22 




A 


COUNT, J J ,01 


12590 


J6 


1197K 


OOOKO 


3/22 




TFM 


COUNT, 20, 0610 


12602 


Jl 


11924 


000-1 


3/22 




AM 


JJ, 1,010 


12614 


KM 


12028 


11924 


3/24 




C 


NOX, JJ ,01 


12626 


M6 


12554 


01300 


3/24 




BNN 


RTN332, ,0 










3/22 








12638 


J5 


12023 


00001 


3/22 




TDM 


IND,1,0 


12650 


Jl 


12063 


000-1 


3/22 




AM 


KY, 1,010 










3/22 








12662 


J6 


11924 


00-00 


3/22 


1211 


TFM 


JJ,0,09 


12674 


20 


00485 


12028 


3/22 


RTN444 


TF 


FAC, NOX, 1 


12686 


12 


00485 


000-1 


3/25 




SM 


FAC, 1,10 



309 



12698 


2L 


00485 


11924 


3/22 




M, 


FAC,JJ,1 


12710 


32 


00095 


00000 


3/23 




SF 


99-KK+l 


12722 


26 


00485 


00099 


3/25 




TF 


FAC ,99 


12734 


2P 


01652 


11060 


3/22 




BT 


FXD,NX,1 


12746 


JO 


11932 


J 17 11 


3/22 




TFM 


12, OUTPUT, 017 


12758 


Kl 


11932 


00485 


3/22 




A 


12, FAC, 


12770 


Kl 


11932 


00485 


3/25 




A 


12, FAC, 


12782 


Jl 


11932 


000-2 


3/22 




AM 


12,2,010 


12794 


J6 


1193K 


000P1 


3/22 




TFM 


12,71,0610 


12806 


Jl 


11924 


000-1 


3/22 




AM 


JJ, 1,010 


12818 


KM 


1106- 


11924 


3/24 




C 


NX, JJ,016 


12830 


M6 


12674 


01300 


3/24 




BNN 


RTN444, ,0 










3/22 


* 






12842 


20 


00485 


11920 


3/22 




TF 


FAC, 1,1 


12854 


33 


00483 


00000 


3/24 




CF 


FAC-2 


12866 


32 


00481 


00000 


3/24 




SF 


FAC-KK+1 


12878 


17 


02112 


000-0 


3/22 




BTM 


FLOAT, 0, 10 


12890 


IP 


01402 


J1947 


3/22 




BTM 


TRACE, ZI, 17 


12902 


IP 


03002 


J2048 


3/22 




BTM 


FSB , ONE ,17 


12914 


IP 


03046 


J2002 


3/22 




BTM 


FMP,DY,17 


12926 


IP 


02336 


J1992 


3/22 




BTM 


FSBR , YYMAX , 17 


12938 


IP 


01402 


J 1957 


3/24 




BTM 


TRACE, UP, 17 


12950 


IP 


03002 


J2002 


3/22 




BTM 


FSB,DY,17 


12962 


IP 


01402 


J1967 


3/24 




BTM 


TRACE, DOWN, 17 










3/22 








12974 


J6 


11937 


00-01 


3/22 




TFM 


IF, 1,09 


12986 


J3 


11937 


OOOJO 


3/22 


RTN121 


MM 


IF,FF,010 


12998 


2J 


00099 


11065 


3/22 




A 


99,Y,1 


13010 


27 


01314 


00099 


3/22 




BT 


TOFAC ,99 


13022 


IP 


03002 


J 1957 


3/22 




BTM 


FSB, UP, 17 


13034 


M4 


13246 


00483 


3/25 




BNF 


11121, FAC-2,0 


13046 


J3 


11937 


OOOJO 


3/22 


12221 


MM 


IF,FF,010 


13058 


2J 


00099 


11065 


3/22 




A 


99,Y,1 


13070 


27 


01314 


00099 


3/22 




BT 


TOFAC, 99 


13082 


IP 


03002 


J1967 


3/22 




BTM 


FSB, DOWN, 17 


13094 


M4 


13114 


00483 


3/22 




BNF 


13331, FAC-2,0 


13106 


M9 


13246 


00000 


3/22 




B 


I1121,,0 


13114 








3/22 




DORG 


*-3 


13114 


J 3 


11937 


OOOJO 


3/22 


13331 


MM 


IF,FF,010 


13126 


2J 


00099 


11045 


3/22 




A 


99,X,1 


13138 


27 


01314 


00099 


3/22 




BT 


TOFAC, 99 


13150 


IP 


03002 


J2073 


3/25 




BTM 


FSB,XXMIN,17 


13162 


IP 


03218 


J2012 


3/22 




BTM 


FDV,DX,17 


13174 


17 


01772 


000-0 


3/22 




BTM 


FIX, 0,10 


13186 


11 


00485 


000-1 


3/22 




AM 


FAC, 1,10 


13198 


13. 


00485 


-0002 


3/22 




MM 


FAC, 2, 7 


13210 


32 


00095 


00000 


3/22 




SF 


95 


13222 


1J 


00099 


J1711 


3/22 




AM 


99, OUTPUT, 17 


13234 


16 


0009R 


000J4 


3/22 




TFM 


99,14,610 


13246 


Jl 


11937 


000-1 


3/22 


I1L21 


AM 


IF, 1,010 


13258 


KM 


1108N 


11937 


3/24 




C 


N, IF, 016 


13270 


M6 


12986 


01300 


3/24 




BNN 


RTN121, ,0 


13282 


ML 


13318 


12023 


3/22 




BD 


111 , IND,01 


13294 


L9 


11687 


00900 


4/2 


110 


WA 


OUTPUT-24, 00900,0 


13306 


M9 


13366 


00000 


3/13 




B 


112, ,0 


13318 


L9 


11687 


00901 


4/2 


111 


WA 


OUTPUT-24, 00901,0 










3/13 


* 




ADD YLABEL OUTPUT 


13330 


IP 


05028 


J1653 


4/24 




BTM 


WATY,FMT-5,17 


13342 


IP 


06066 


J2022 


4/2 




BTM 


SWC, YLABEL, 17 


13354 


17 


05650 


000-0 


4/2 




BTM 


C0MPLT,0,10 


13366 


IP 


01314 


J2022 


3/13 


112 


BTM 


TOFAC, YLABEL, 17 



13378 


IP 


03002 


J 2 002 


3/13 


BTM 


FSB,DY,17 


i o o r\ s\ 

13390 


IP 


01402 


J2022 


3/13 


BTM 


TRACE, YLABEL , 17 


13*h02 


J 1 


11920 


000-1 


3/13 


AM 


1 , 1,010 


13414 


J 4 


11920 


000N1 


3/13 


CM 


1,51,010 


13426 


M7 


12338 


01100 


3/13 


BNP 


RTN1, ,0 


13438 


M9 


1109L 


00000 


3/13 


Bi 


START-1, ,06 


00000 








3/13 


DEND 
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1 703046 120U 2 1702336 11 9921 70 1402 11 95 71 703002 12002 170 1402 11967R00 11 29 141 2974000031 
161 193700001 13 11937000102100099 110652701 3 14000991703002 11957R00 1129741 3034000032 
441 3246004831 31 1937000 102 100099 11065270 13 1400099 1703002 11967R00 11 30341 3094000033 
44131 140048349 1 3246 00000k00000000000000000000000000000000000000 11 30941 3 118 000034 
131 1937000 1021000991 10452701314000991 70300212073 17032 18 1201 2R00 11 31 141 3174000035 
170177200000110048500001130048 50000232000950000011000991 171 1R00 113 1741 3234000036 
160009900014111193700001241 108 5 11937461 29860 130043 133 18 12023R00 11 32341 3294000037 
39 1 1 6870090049 133660000039 11 6870090 11 705028 11 6531 706066 1202 2R00 11 32941 3354000038 
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17056500000017013 1412022 17030021 2002 1701402 12 022 111 19200000 1R00 11 33541341 4000039 
1411920000514712 33801100491 109 3000 00 ROOOOOO 0000000000000 0000000 11 34 141 34 5000 00 40 
00000000000000000000000000000000000000000000000000000000000000100000000000000041 
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C AUTOMATIC I INKAGE GENERATOR FOR SPS SUBS. FOR FN II. 

C 

C L. HOFFMAN, GUGGENHEIM LABS. 

C 

---1205 

C SPS - FN II LINKAGE AND CONSTANT AUTOMATIC GENERATOR 

DIMENSION VAR(20) 
27 RF/AD 1,N 

1 FORMAT (15) 

READ 2, ( VAR{ I ) , I=1,N) 

2 FORMAT (A6) 

4 TYPE 3 

3 FORMAT (22H TYPE SUBROUTINE NAME. ) 
ACCEPT 2,SNAME 

I F ( SNAME )5 ,4, 5 

5 PUNCH 6 
PRINT 6 

6 FORMAT ( 5HAUT0 t 6X , 9HD0RG1 1036 ) 
PUNCH 7,SNAME 

PRINT 7, S NAME 

7 FORMAT (5 HAUTO , A6,5HDS 5) 
DO 8 I=1,N 

PUNCH 9, VAR ( I ) 
PRINT 9, VAR ( I ) 
9 FORMAT ( 5 HAUTO , A6,5HDS 5) 

8 CONTINUE 
PUNCH 10 
PRINT 10 

10 FORMAT ( 5HAUT0 ,6X,5HDS 7) 
PUNCH 30 
PRINT 30 
PUNCH 31 
PRINT 31 
PUNCH 32 
PRINT 32 
PUNCH 45 
PRINT 45 
PUNCH 38 
PRINT 38 
PUNCH 33 
PRINT 33 
PUNCH 34 
PRINT 34 
PUNCH 37 
PRINT 37 
PUNCH 36 
PRINT 36 
PUNCH 3 5 
PRINT 35 
PUNCH 41 
PRINT 41 
PUNCH 40 
PRINT 40 
PUNCH 39 
PRINT 39 
PUNCH 42 
PRINT 42 
PUNCH 43 
PRINT 43 
PUNCH 44 
PRINT 44 



PUNCH 46 
PRINT 46 
PUNCH 49 
PRINT 49 
PUNCH 48 
PRINT 48 
PUNCH 47 
PRINT 47 



30 


FORMAT (5HAUTG 


, 6HFF 


, 4HDS 


, 6H , 


1 


31 


FORMAT (5HAUT0 


,6HKK 


» 4HDS 


» 6H , 


5 


32 


FORMAT ( 5HAUT0 


, 6HFAC 


, 4HDS 


» 6H , 


/.OK 


45 


FORMAT { 5HAUT0 


, 6HT0FAC 


, 4HDS 


, 6 H j 


it 


38 


FORMAT ( 5HAUT0 


,6HFMFAC 


, 4HDS 




1 ^ K. P 


33 


FORMAT ( 5HAUT0 


, 6HTRACc 


/.Line 


, on , 




34 


FORMAT ( 5HAUT0 


,6HFXD 


,4HDS 


AH . 
» on j 


1 A ^ ? 


37 


FORMAT I 5 HAU 1 U 


,6HFIX 


,4HDS 


. 6H . 


1772 


36 


FORMAT (5HAUT0 


, 6HF LOAT 


,4HDS 


,6H, 


2112 


35 


FORMAT (5HAUTG 


, 6HRSGN 


,4HDS 


,6H, 


2336 


41 


FORMAT (5HAUT0 


» 6HFSBR 


,4HDS 


,6H, 


2336 


40 


FORMAT (5HAUT0 


,6HFAD 


,4HDS 


,6H, 


2430 


39 


FORMAT (5HAUT0 


,6HFSB 


,4HDS 


,6H, 


3002 


42 


FORMAT (5HAUT0 


,6HFMP 


,4HDS 


i 6H, 


3046 


43 


FORMAT ( 5HAUT0 


,6HFDV 


,4HDS 


,6H, 


3218 


44 


FORMAT (5HAUT0 


, 6HFDVR 


,4HDS 


,6H, 


3434 


46 


FORMAT ( 5HAUT0 


, 6HWAT Y 


,4HDS 


,6H, 


4920 


49 


FORMAT (5HAUT0 


,6HPRA 


,4HDS 


,6H, 


5028 


48 


FORMAT ( 5HAUT0 


,6HC0MPLT ,4HDS 


6H, 


5650 


47 


FORMAT ( 5HAUT0 


,6HSWC 


,4HDS 


,6H, 


6066 



, 13HSTART-1,5,010) 



PUNCH 11 
PRINT 11 

II F0RMAT(5X, 1H*, 12X,25HEMD OF ARGUMENT ADDRESSES/5X , 

III LINKAGE. ) 
START=. 6263415963 
BLANK=0 . 

DO 12 1 = 1, N 

I F ( I -1 ) 13, 14, 13 

14 PUNCH 15, START 
PRINT 15, START 

15 FORMAT (5H AUTO ,A6,4HAM 
GO TO 16 

13 PUNCH 15, BLANK 
PRINT 15, BLANK 

16 PUNCH 17,VAR(I) 
PRINT 17,VAR(I) 

17 FORMAT ( 5HAUT0 ,6X,4HTF 
PUNCH 18,VAR(I) 
PRINT 18, VAR( I ) 

18 FORMAT ( 5HAUT0 ,6X,4HBNF 
PUNCH 19,VAR(I) 
PRINT 19,VAR(I) 

19 FORMAT ( 5HAUT0 ,6X,4HCF 
PUNCH 20 , V AR ( I ) , VAR ( I ) 
PRINT 20 , VAR (I ) , VAR ( I ) 

20 FORMAT ( 5HAUT0 ,6X,4HTF 
12 CONTINUE 

M = N/2 
M=M*2 

IF(M-N)21,22,21 

22 PUNCH 23 
PRINT 23 

23 FORMAT ( 5HAUT0 ,6X,4HAM 



, A6, 13H,START-1 ,0111 ) 



, 5H*+36, , A6, 3H,01 ) 



, A6,3H, ,0 ) 



, A6, 1H, , A6,5H,0111) 



, 13HSTART-1, 1,010) 



GO TO 24 
21 PUNCH 25 
PRINT 25 

25 FORMAT ( 5HAUTO ,6X,4HAM , 13HSTART-.lt 2, 010.) 
24 PUNCH 26 

PRINT 26 

26 FORMAT ( 5HAUT0 ,6X,4HB , 9HAR0UND , , 0/5HAUT0 , 6X , 4HD0RG , 3H*-3/ 
261 5X,1H*,12X,36HSYMB0L TABLE AND CONSTANTS HERE ... ) 

GO TO 27 
END 



DATA FOR AUTO-LINK. 
9 

X 

XMAX 
XMIN 
NX 
Y 

YMAX 
YMIN 
NY 
N 



317 



A SURVEY OF THE BEGINNING PROGRAMMING COURSE 

Clarence B. Germain 
College of St. Thomas 
February 20, I96U 

Last Fall, a quest ionaire was sent to the 280 schools which are members of the 
USERS Group. 175 schools responded. The results are tabulated on the following pages. 

1. No allowance has been made for non- respondents. This does bias the results. 

2. Since the survey covers only schools having l620's, the figures for the end of 
1964 do not reflect the influence of schools which will acquire their first 1620 
during the year. 

3. A suprising number of respondents gave incoaistent answers; e.g., they indicated 
floating-point hardware, but not divie hardware, or they indicated that 35$ of 
their students run their own SPS programs, while they taught SPS only to 20$ 

of their students. 

k. Figures for index registers, binary capabilities, and the 1627 plotter may not 
be indicative since the questionaire was circulated too soon after announcement 
of these features. 

5. Average enrollment in the beginning programming courses in 170 students per 
school per year. 

6. Many of the Model II l620's will supplement existing Model I's, not replace them. 

7. Relatively few schools indicated any plans to obtain the lM+3 printer. 

8. The disk units will more than double in popularity during 196k with 1/3 of all 
schools having at least one disk unit by the end of the year. 

9. While 3$ of the schools offered no course involving Fortran, 35$ of the students 
were taught more than one version of Fortran. 

10. At the end of 1963, 51$ of the schools had the hardware necessary to run Fortran 
II; by the end of 196^, this figure will rise to 59$. 

11. 85$ of the students get "hands on" experience in running their own programs on 
the computer. This percentage is about the same regardless of what programming 
systems (SPS, GOTRAN, etc.) are taught. 

12. Jim Moore's Multi-Trace, 1.U.003, was the most commonly mentioned trace program 
taught to students. However, 85$ of the schools indicated that they used no 
trace program in their courses. 

13. The figures for textbooks are for use in at least one course. Many schools use 
more than one text in a course. 31$ of "the schools use only IBM publications 
as texts. While a wide variety of texts, many unrelated to either Fortran or 
the 1620, are in use, only four commercial texts and a half-dozen IBM publica- 
tions are used with any frequency. Of the non-programming type texts, numerical 
analysis books, particularly Stanton's, were most often mentioned. 

1^. The textbook percentages in no way indicate sales of books; these figures are 

quite different from the percentages shown here and were not a part of this study. 
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RESPONSES OP 175 SCHOOLS TO A SEPTEMBER 1963 QUESTIONABLE 

Results are given as a percentage of the number of schools replying to the ques- 
tionaire. Probable errors do not exceed ±3$ except for items marked with an asterisk 
(*) where the probable error is less than ±8$. Results are given for the end of 1963 
and for the end of 1964. Changes for 1964 are only for equipment now on order. Slight 
discrepancies in the percentages are due to rounding. 



1620 Model: 1963 1964 

I 98$ 

II 2 

Special Features, Model I 

AFP, Div, IDA, Edit 31 

AFP, Div, IDA 3 

AFP, Div, Edit 

AFP, Div 1 

Div, IDA, Edit 31 

Div, IDA 14 

Div, Edit 1 

Div 3 

IDA, Edit 1 

IDA 3 

Edit 1 

No special features 13 

Summary: 

Automatic Floating-Point 34 

Automatic Divide 82 

Indirect Addressing 82 
Additional (Edit) Instructions 64 

Storage : 

20K core, no disk 48 

40K core, no disk 21 

60K core, no disk 17 

30K core, disk 5 

40K core, disk 4 

60K core, disk 5 

Input-Output : 

Paper Tape only 4 

Paper Tape and Cards 10 

Cards only 86 

Magnetic Tape 4 

Paper Tape 13 

Cards , 1622-1 83 

Cards, 1622-2 13 

Cards, RPQ to read 800 cpm 3 
1443 Printer 

Disk, one or more 14 

1627 Plotter 4 

1710 2 



11 



31 
3 

1 

31 
14 
1 

3 
1 

3 
1 

13 

35 
82 
82 
64 



38 
18 

13 
12 

9 
9 



4 
10 
86 

4 
14 
81 
16 

3 

8 

31 
4 

3 



Number of l620's in the school: 

One 95$ 

Two 5 

Special Features, Model II (1964) 

Automatic Floating-Point 65* 

Index Registers 0* 

Binary Capabilities 5* 

Installations with Printer (1964) 

No disk 23* 

1 disk 15* 

2 disks 54* 

3 disks 0* 

4 disks 8* 

Type of Courses Offered: 

Both credit and non-credit 5 

Non-credit courses only 36 

Credit courses only 13 

No answer or no courses 47 

Departments which offer courses: 

Engineering 40 

Education 1 

Mathematics 45 

Business 31 

Other 40 

Subjects Taught: 

Machine Language 32 

Operation of the Computer 66 

SPS 29 

GOTRAN 17 

FORTRAN with FORMAT 47 

FORTRAN II or II-D 33 

FORGO, etc. 35 

Use of some library trace 13 

Block Diagramming 63 

Monitor I 9 
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Disks : 

No disk 

1 disk 

2 disks 

3 disks 
k disks 

Hardware necessary to run; 
Fortran II only- 
Fortran II and II-D 
Fortran II-D only 



86 
8 
5 

1 



37 
9 
5 



68 
20 
11 

1 



29 
19 
11 



Students are expected to write and 
run their own programs using: 



SPS II 
GOTRAN 

FORTRAN with FORMAT 
FORTRAN Pre-Compiler 
FORTRAN II 



25 
15 
^3 
28 

27 



Required or recommended texts: 
IBM Publications 



1620 Reference Manual Ik 

1710 Reference Manual h 

SPS Reference Manual 1+9 

GOTRAN Reference Manual 22 

1620 FORTRAN Reference Manual 6l 

1620 FORTRAN II Bulletin 38 

FORTRAN General Information Manual 23 

1620 Program Writing and Testing Bulletin 12 

Introduction to IBM Data Processing Systems 15 

Programming and Block Diagramming Techniques 12 

Commercial Publications 

Germain — Programming the IBM 1620 27 

Leeson-Dimitry — Basic Programming Concepts and the IBM 1620 Computer 39 

Grueriberger-McCracken — Introduction to Electronic Computers 6 

McCracken— -A Guide to FORTRAN Programming 38 

Organick — A FORTRAN Primer 38 

Colman-Smallwood — Computer Language 6 

Smith-Johnson — FORTRAN Autotester 3 
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Utah State University 
Logan, Utah 



FORTRAN "TEACH* 1 PROBLEMS 
by 

Wendell L. Pope 

These problems are designed to be of assistance in introducing the neophyte 
to FORTRAN. Problem sets and programs to check them are provided for arithmetic 
statements, subscripted variables, fixed and floating point variables, functions 
and control statements, loops and input-output- The problems do not require 
that a student be able to write a complete program. They provide a means of 
acquainting him with the characteristics of FORTRAN in easy stages and help to 
bridge the gap between the introduction to computing and the writing of a complete 
program. The student's statements are checked for correctness by imbedding 
them in the appropriate checking program* They are checked for compilation 
errors by the FORGO processor, and for accuracy by the checking program itself. 
This is done by comparing the values computed by the student's statements to a 
predetermined set of "correct" values. For wrong answers, the number of the 
problem and the value computed are output, for right answers only the number of 
the problem is output. 
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FLOW CHART - TEACH Problem Checking Program 



Read values to 
be used in this 
problem set 



/IV 



MS 

Read the "right" 


answers 


for 


this problem 


set 









Execute studenfc 
statements 
evaluating X^ 
for each value 
of i 



i 






- K 





- L 



DO .for each value Qj.X,, 



( Is X. correct No_ 

V 1 3 



Yes 







Store 


i as 


right 




> 




Increment i 


& test 


for 


exit 




IP*** 



Store i as 
wrong 



i 



Punch i. X. and 
the right answer 



^Are any prob^\ 
\lems right? J 

3^ 



Yes 



Punch the numbers of 

of the correct prob- 
lems 



/*Are any probX 
\ lems wrong? I 



Yes 



No 



STOP 



Punch the numbers of 
the incorrect prob- 

il emp . - 
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C TEACH PROBLEM NO 1 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 

DIMENSION NRITE( 10 ) >NWRMG( 10 ) >R IGHT ( 10 ) ,X( 10 ) 

READ >A,B>C»D,E>F»G»H» ( R IGHT ( I)»I=1,10) 
C INSERT STUDENT STATEMENTS BEHIND THIS CARD 

K=0 

L = 

DO 9950 I = 1 » 10 

IF(X(I)-RI6HTU) ) 9912>9914»9912 
9912 L=L+1 

NWRNG(L)=I 

PUNCH 9920* I ,X( I ) , RIGHT ( I ) 

GO TO 9950 
9914 K=K+1 

NRITE(K)=I 
9950 CONTINUE 

IF(K) 9922,9924,9922 

9922 PUNCH 9923 » f NRI TE ( I) > 1=1 ,K) 

9923 FORMAT ( 6H RIGHT, 1015) 
.99.24' IF (L) 9925,9926,9925 

9925 PUNCH 9927 > ( NWRMG ( I ) , I = l , L ) 

9926 STOP 

9920 FORMAT ( 9H PROB NOo I3,4X,9HYOUR ANS=E16o8 »4X , 10HRI GHT ANS= EI608) 

9927 F0RMAT(6H WRONG, 1015) 
END 

10.341296 10,345599 8.6867569 ~40«,683394 15.683097 .0034784067 
•00034329602 1.1234567 

•10664629E+02 0.41901625 0.84447317E+02 0. 12039480E+02 

.6530321 9E+09 102 5938 8E+0 1 «, 14580430F+01 o 8798 2136F+01 
•46184027E+02 0.1172 9093E+03 
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C TFACH PROBLEM NO 2 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 
DIMFNSION NRITF( 5>»NWRNG< 5)>RIGHT< 5)>X( 5 ) > B ( 4 ) * A ( 4 » 4 ) 
RFAD »K » L » ( (. A ( I » J ) *J=1»4}»I=1>4) » ( B ( I) » I = 1 » 4 ) » ( R I GHT ( I) , I = 1 * * ) 

C INSERT STUDENT STATEMENTS BEHIND THIS CARD 

K = 
L = 

DO 9919 1 = 1*5 

I F ( X ( I ) -R I GHT ( I ) ) 9912*9914*9912 
9912 L = L+1 

NWRNG ( L) = I 

PUNCH 9920»I»X(I) *RIGHT( I ) 
GO TO 9919 
9914 K=K+1 

NRITF(K)=I 
9919 CONTINUE 

IF(K) 9922*9924*9922 
PUNCH 9923* (NRITE( I ) *'I = 1 *K) 
FORMAT ( 5HR I GHT * 10 1 5 ) 
IF(L) 9925*9926*9925 
PUNCH 9927 » ( NWRNG ( I ) * I = 1 * L ) 
STOP 

FORMAT ( 5HWR0NG » 10 I 5 ) 

FORMAT ( 8HPROB NO. I3»4X,9HY0UR ANS= E16 . 8 * 4X * 1 OHR I GHT ANS= E16.8) 
END 



9922 
9923 
9924 
9925 
9926 
9927 
9920 



2 3 
2*3964587 
6.0247685 
7.3214680 
5.4673001 



3.6241346 
4.1024678 
8.3469201 
41.125807 



4.1357653 
5.3751468 
9«3704368 
4913189.2 



5.3422587 
6.0347312 
10.437695 
7701.4270 



3.3524569 
7.3107386 
-1.3579430 
.86225934 



4.3687946 5.312 
5.3420769 6.046 
-2.5347962 
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C TEACH PROBLEM NO 3 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 

DIMENSION NRITE(IO) »NWRNGdO) >RIGHT(]0) ,X(lO) >B<4> 

READ,K,L>(B(I)>I=1»4) » (RIGHT ( I ) » I = 1 > 5 ) 
C INSERT STUDENT STATEMENTS BEHIND THIS CARD 

K = 

L=0 

DO 9919 I =1 »5 

IF(X(I)-RIGHT(I) ) 9912 > 99 14*991 2 
9912 L=L+1 

NWRNG(L) =1 

PUNCH 9920,1 »X( I ) ,RIGHT( I ) 
GO TO 9919 
9914 K = K + 1 

NRITE(K)=I 
9919 CONTINUE 

IF(K) 9922 >9924, 9922 
PUNCH 9923* (NRITE( I ) > 1=1 »K) 
FORMAT(5HRI6HT»].OI5) 
IF(L) 9925>9926»9925 
PUNCH 992 7 » ( NWRNG ( I) * I = 1 »L ) 
STOP 



9922 
9923 
9924 
9925 
9926 
9927 
9920 



F0RMAT(5HWR0NG»10I5) 



FORMAT ( 8HPR0B 
END 



NO. I3»4X>9HY0UR ANS= E16 • 8 » 4X , 10HR I GHT ANS= E16.8) 



157,09495 -1.3579430 



9 o 3704368 
15.915392 



10.437695 
205o01975 



-1.35.79430 

lloO 



>2o5347962 
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C TEACH PROBLEM NO 4 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 
C TEACH PROBLEM NO 4 PLACE STUDENT HEADER CARD IN FRONT OF THIS C 

DIMENSION NRITE(5) ,NWRNG(5) , RIGHT (5)>X<5) 

READ,A,R,C,D,E>F,6,H,K» (RIGHT ( I ) » I = 1 9 5 ) 
C INSERT STUDENT STATEMENTS PFHIND THIS CARD 

K = 

L = 

DO 9919 1=1,5 

IF (X(I)-RIGHT(I) )991?»9914»991? 
9912 L=L+1 

NWRNG(L)=I 

PUNCH 992C> I ,X( I ) >RIGHT( I ) 

GO TO 9919 
9914 K=K+1 

NRITE(K)=I 
9919 CONTINUE 

IF( K)9922»9924>9922 

9922 PUNCH 9923 » ( NRI TE( I ) > I =1 >K ) 

9923 FORMAT(5HRIGHT»10I«5) 

9924 IF(L)9925>9926>9925 

9925 PUNCH 99 27 » ( NWRNG ( I ) » I = 1 »L) 

9926 STOP 

9927 FORMAT(5HWRONG»10I5) 

9920 FORMAT ( 8HPROB NO* I3>4X,9HY0UR ANS= E16 o 8 » 4X » 10HR I GHT ANS= EI608 
END 

1,2457369 2 o 3580l23 3o8609756 4*7602541 5*3025768 6o2047536 
7o0367524 8o3205689 2 
1*1161260 lo3001178 O 78878076 2*4429843 *o6480088 



3 2 » 



C TEACH PROBLEM NO 5 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 

DIMENSION NRITE(5) »NWRNG(5 ) »RIGHT( 5) »X(5) 

READ >A»8»C»D>E> (RIGHT ( I ) , 1=1 , 5) 
C INSERT STUDENT St ATEMENTS BEHIND THIS CARD 

K = 

L = 

DO 9919 1=1 »5 

IF (X(I )-RIGHT< I ) ) 99 12 » 9914*9912 
9912 L=L+1 

NWRNG(L)=I 

PUNCH 9920»I»X(I)»-RIGHT(I) 
GO TO 9919 
9914 K=K+1 

NRITE(K) =1 

9919 CONTINUE 

IF( K)9922>9924»9922 

9922 PUNCH 9923 » ( NR I TE ( I ) > I = 1 > K ) 

9923 FORMAT ( 5HR IGHT > 1 I 5 ) 

9924 IF(L)^9925»9926>9925 

9925 PUNCH 9927 > ( NWRNG ( I ) * I = 1 »L ) 

9926 STOP 

9927 FORMAT (5HWRONG* 101 5) 

9920 FORMAT ( 8HPR0B NOo I3»4X>9HYOUR ANS= F 16 . 8 > 4X > 10HR I GHT ANS= EI608 
END 

2.3964587 3.6241346 4.1357653 5.3422587 3.3524569 112761.0 23922.7 
11018.845 7478.2325 6160.7034 
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C TEACH PROBLEM NO 6 PLACE STUDENT HEADER CARD IN FRONT OF THIS CARD 

DIMENSION NR I TE ( 5 ) »NWRNG<5) »R I GHT ( 5 ) *X ( 5 ) 

READ,(RIGHT(I)*I=1>5) 
C INSERT STUDENT STATEMENTS BEHIND THIS CARD 

K = 

L = 

DO 9919 I = 1 » 5 

IF (X( I )-RIGHT( I ) )9912»9914>9912 
9912 L=L+1 

NWRNG ( L ) =1 

PUNCH 9920,I»X(I)»RIGHT(I) 
GO TO 9919 
991 4 K=K+1 

NRITE(K) =1 

9919 CONTINUE 
IF(K)9922>9924>9922 

9922 PUNCH 9923* (NRITE( I ) » I = 1 » K ) 

9923 FCRMAT(5HRIGHT>10I5) 

9924 IF(L)9925»9926*9925 

9925 PUNCH 9927 > ( NWRNG ( I ) » I = 1 » L) 
9°26 STOP 

9^27 FORMAT ( 5 H WRONG » 10 1 5 ) 

9920 FORMAT ( 8HPR0B NO. I3>4X,9HY0UR ANS= F16 »8 >4X > lOHRI GHT A.N 5= E16V* 

END 

o 97 56902 3F+04 1169 9576E+04 « 152 8372 2F+05 
•34042183E+03 0.2387 1681E+04 
14 C 369025 15,6753869 lo0367521 6o98512C3 
8.4357205 

3*9857423 
9o8530247 

8.5S3Z586 



c 
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TEACH PROBLEM SET 1 
Arithmetic Expressions 



Assume that values of A, B, C, D, E, F, G and H are in storage. Write 
and keypunch correct FORTRAN statements to evaluate each of the following 
expressions. 



1. X(l) , A + ^ 



2. X(2) = 



A + B 
C - D 



3. X(3) = AB + C — - G 



k. X(4) = A + B 



C + 



E + 



G-H 



5. X(5) = A + B C - | 



6. X(6) 



?. X(?) = A (b2+C)D + tt 



(rr « 3.1^592653...) 



8. X(8) * ^ + 



9. IfE>B>A>H>C>F>G>0, compute 

X(9) =A+B+C+E+F+G+H 
to obtain the most accuracy. 



10, X(10) s A + B 2 + - 1 
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TEACH PROBLEM SET 2 
Subscripted Variables 



Assume the arrays A =| 



a ll 


a i2 


*13 


a rf 


a 21 


a 22 


a 23 


a 24 


a 31 




a 33 


a 3^ 






a ^3 


%± 



f b. 



and B = 



\ 



are in storage. Write and keypunch correct FORTRAN statements to 
evaluate each of the following expressions. 



1. X(l) 



_!H + !l2 + !lit 
a ll a ll a ll 

if * 



3. x(3) =2 a 
3=1 



2j 



2. X^^.b. 
if. X(if) = a^ + a 32 X^ + a^X* + a^x} 



5 X(5) - ^ b l^ where £b 1 denotes the integer portion of by 



TEACH PROBLEM SET 3 
Fixed point, Floating point, and subscripted variables 



Assume that values of k and L and B = 



are in storage. 



Write and keypunch correct FORTRAN statements to evaluate each of the 
following expressions, 
if 



x i - A b i 



2. 



3. X, = 



i=l 
if 

£ b.. . 

. , lk-1 
1=1 



h m b 3 



^ k 
H i=l 



5. x 5 = jj + k L ♦ k 3 - a 
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TEACH PROBLEM SET k 
Functions and Control Statements 



Write (and keypunch) statements to evaluate X^ X 2 , X^ and X^ according 
to the instructions in the flow chart below. Assume A, B, C, D, E, F 
and K to be defined. 

Start 



= e 



( Test A 



A > 





; A = 


V s 






1 



X^ 8 Arctan(A+B) 



XL = VCos(C-D) 



x x = Va~ 



X^ = ln(£«F) 



X » 1 



Test K 



K = 1 



X^ = ln(F-E). 





K=2 


X^ = ln(E+F) 



x 5 - I x 1+ x 2+ x 3+ x if 
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TEACH PROBLEM SET 5 
Loops 



Write (and keypunch) statements to evaluate X^ Xg, *y \ and 

X,. in the exercises below* 
5 

1. X^^ = f + 6 a + 9 8 + 12 s + ... + 99 s * 



. X. = H^^ 1 ^ • i « 2. 3, 5. 



TEACH PROBLEM SET 6 
Input - Output (without formats) 



Read A,B,C & D 



> 


K . 


Punch A 


,B,C & D 



i = 1 





Read Z 








X. = AZ 5 +BZ 2 +CZ+D 
l 






1 Punch 


Z. X. 




_ arf, 



Is i < 5? 

^ 

•nU No 



i + 1 - i 
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LOAD-AND-GO SPS WITH MONITOR CONTROL 
Kenneth M. Lochner and Glenn R. Ingram 



MSC ASSEMBLY SYSTEM: 



A LOAD-AND-GO SPS WIT H MONITOR CONTROL 

I. ) INTRODUCTION 

This paper will discuss a monitored, load-arid-go type assembler developed 
at Montana State College and the conditions that prompted its development. It 
Is a report on work done by Ken Lochner, ' formerly of the MSC Computing Center, 
and soon to assume duties as chief programmer at the Dartmouth Computation 
Center, in the actual writing of the processor. 

To suggest some of the background reasons for this processor, it is well 
to admit that I am a relative newcomer to 1620 ranks in completing my second 
academic year with a 1620, after leaving a 709 Installation. Anyone who 
follows this path finds himself wondering why in the world he did, and then 
develops a feeling somewhat akin to the fellow who had a job with a circus. 
This particular job consisted of following behind the animals during a parade, 
and cleaning the street with his little shovel. After an especially trying day, 
he complained so bitterly that his wife asked, "If it's so bad, why don't you 
quit and get another job?" The man replied, "What I And get out of show busi- 
ness?" 

If the analogy isn't exact, It may be suggestive that some things could be 
cleaner in the 1620 tent. 

II. ) BACKGROUND AND MOTIVATION 

To indicate some of the motivation for the work discussed here, Montana 
State. College has, since 1958, off erred courses in symbolic programming. This 
programming Is not viewed as an end in itself, but as a basis for the presenta- 
tion of somewhat more sophisticated topics. This was a necessity while the com- 
puter was a 6^0, and the practice has continued with the Model I 1620, and more 
recently, the Model II. The clear advantages of FORTRAN have caused a change in 
the philosophy of the introductory course and in the developnent of library 
routines. 

The ease of teaching FORTRAN, plus its relative machine independence and 
the ability of the casual user to obtain answers to real problems rather quickly, 
make it the logical choice for an introductory language. The newcomer is some- 
what surprised to discover that FORTRAN will also produce a faster object program 
than SPS — despite the standard folklore — but is inclined to believe that a sym- 
bolic programming system still has a place in the academic world. 

¥e feel that a symbolic system should be taught to students who have mas- 
tered the compiler language, and are interested In more depth in the computer. 
However, even the most innocent SPS devotee must admit that the pre-disk system 
was, at best, miserable from a teaching standpoint. Without entering into a 
discussion of whether SPS is a model of the mold in which symbolic systems 
should be cast, suffice it to say that there are rather obvious drawbacks to 
its use by a class of students. 

Having mentioned the pre-disk system, let it be stressed that the system 
to be discussed, despite the "monitor" in the title, does not require disks, 
and has no relation to the disk monitor. Our 1620 has 60K storage and the 
standard features of the Model II, but the system will operate on a [;0K Model 
I with automatic divide, indirect addressing and card input-output. 

o O l k 



III.) CRITERIA FOR A GOOD ASSEMBLY SYSTEM FROM A TEACHING STANDPOINT 



Returning to the motivation for this system, let it be noted that anyone 
who has taught a symbolic system to beginning programmers is aware that syntax 
and logical errors abound in the programs they produce. One can visualize the 
standard scene in a 1620 installation: a group of students loading the assembler, 
loading and unloading the punch hopper, entering the object deck, watching the 
typewriter anxiously, and then staring in increasing bewilderment at a machine 
which has halted, cleared or is in an infinite loop. 

This scene, repeated many times, has its effect on the patience and morale 
of both students and teacher. 

The elimination of this scene provides a good starting point in considering 
what is desirable in a symbolic system. We would submit that the essential 
points are: 

1.) The ability to process a number of programs in a short time, 
which requires 

a. ) load and Go operation 

b. ) Batch assembly 
and 2.) Good diagnostics 

a. ) During assembly 

b. ) During program execution. 

These considerations suggest that the system must always be in core, and pro- 
vide the third condition: 

3.) A "student-proof" processor; i.e., one that virtually cannot 
be erased. 

IV.) FEATURES OF THE MSC ASSEMBLY SISTM 

To show how these considerations dictated the type of processor developed, 
and to reinforce the assertion that it was superior to the regular SPS for 
teaching (and debugging), we list some features of this system beside those of 
the standard one. 



Feature 

Language 

Operation 



MSC 

Modified SPS-09 

Load-and-go , 
batching 



Regular SPS 

SPS-09 or -20 

Two passes of source plus 
load object program 



Assembly Diagnostics Cards 



Basic Floating Point 
Operations 



Built-in 
(rewritten) 



Typewri ter 

Additional deck to load 



Execution Error 
Diagnostics 



22 detected 



None 



Processor 



Always in core 



In and out 



This table gives the essential comparison of pertinent points. To con- 
tinue, under the 5aSC system, the program can be traced during execution (at the 



*> r: 
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operator's option, by a console switch), execution can be halted by turning on 
a console switch, and a maximum number of instructions that a program can 
execute may be preset: if the program exceeds this number, the monitor will 
so indicate, and proceed to the next job. Hence, the only output will be the 
error messages, results of a trace, or answers computed by the program. Thus, 
the time consuming card handling of processor and object deck is eliminated, 
as well as the annoyance of punched output after errors have been detected. 
Also, the MSC processor has been made as nearly 11 student-proof w as possible. 
Once in two quarters the system was wiped out of core in a rare situation 
associated with a divide command, and we feel that our students are as inventive 
as anyone' s. 

V.) OPERATION OF THE SYSTEM 

The operation of this system can be divided into three phases: a rather 
trivial "Job Card" search, the assembly of the source program, and the execution 
of the program 'under monitor control. 

Each of the stacked programs must be preceded by a "Job Card," typically 
containing the student's name and program description. This card is identified 
by an asterisk in column 80, and the processor reads cards until such a card 
has been found. The job card is reproduced and assembly of the source program 
begins. The purpose of this is, of course, to allow this title card to be 
differentiated from data cards which may be stacked behind the previous program. 

The assembly of the source program proceeds as in the SPS-09 assembler, 
except that 

1. ) During the equivalent of pass 1, the source statements are 

stored in core, 

2. ) During the equivalent of pass 2, the source statements are 

assembled, 

3. ) Diagnostic errors are punched, 

and h») If syntax errors were discovered during assembly, an "End of 
Job" card is punched, and the processor returns to the job 
card search phase . 

If no syntax errors were detected during assembly, monitor control of program 
execution is initiated. 

The primary purpose of the monitor part of the processor is to provide an 
indication of execution errors while protecting the processor. After a program 
has been assembled, the monitor successively examines each instruction for 
possible execution errors, finds equivalent direct addresses, and if there are 
no errors, executes the instruction. The examination precludes executing an 
instruction that would, for example, carry out arithmetic on a field containing 
a record mark, operate on a field or record that hadn't been flagged or marked, 
etc. 

This process continues until 

1. ) Program execution is complete, 

2. ) An error is detected, 

3. ) The number of instructions executed exceeds the number allowed, 
or h») The operator terminates program execution by a console switch. 

Any one of these four conditions causes an ''End of Job" card to be punched, and 
the processor returns to the job card search phase. Any of the last three con- 
ditions causes an error message to be punched before the "End of Job" card. 
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VI.) SUMMARY OF CLASS USE 



In evaluating the effectiveness of such a system, one is tempted to compare 
the results of student use with those of students using another system on a dif- 
ferent computer; e.g., SOAP on the 6^0 or FAP, say, on the 709 or 90. However, 
such a comparison is probably more a reflection of the particular computer than 
of the programming system, because of the differences in size and complexity of 
the command structure, and the storage available for a processor. 

Perhaps it is more meaningful to indicate that a class of 2$ students was 
able to make effective use of this system to learn symbolic programming for the 
1620. Each student was able to have several trials with his program in a two 
hour period. The programs written varied from a beginning one that simply read 
cards, rearranged fields, and punched cards, to rather complex ones. Other sim- 
ple programs involved the various standard arithmetic operations and the float- 
ing point routines, and finding roots of polynomials. Other programs included 
random number generators, subsequent tests for randomness, Monte Carlo evaluation 
of an integral, square root subroutines, simulation of index registers, and some 
basic "building block" routines which will be used in the' simulation of a sym- 
bolic system for a fixed word length computer. 

VII.) CONCLUSION 

■Summing up, it may be gathered that we have been pleased with this pro- 
cessor. It has been useful in debugging programs other than those written by 
students. Its effectiveness has been purchased at the cost of the time used in 
the detailed scrutiny of the monitor. Balancing that cost against the time that 
would be used in the extensive card handling of the regular systems, the gain in 
convenience and the ability to handle many programs in one period , has made this 
processor a real contribution to our classes. 

With the oncoming surge of disk storage, our interest in this system may 
sound comparable to the enthusiasm of the folks who invested in buggy whips just 
before the car was invented. If so, someone should have developed such a system 
three years earlier. 

We feel this may have a place, even with disks, so it has been submitted to 
the program library, in four forms. Certainly it has been well-nigh foolproof 
and indestructible in core, thus providing the rapid on-off form desired. It 
may be obsolete, but we are too old to be innocent, and we have learned to be 
skeptical of Greeks bearing gifts and manufacturers bearing software. 
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A BSTRACT - ■■ 

Titiej Indiana State College Test Score Analysis 

Author; Wayne E. Hoover 
Computer Center 
Indiana State College 
Terre Haute, Indiana 

P^gpe s e / D e s c riptioas Suppose a student tells you that he received a 
score of 36 on a particular examination. This alone does not indicate 
hi« achievement in relation to tlie rest oi the class. Before one can 
interpret such a number* more information is needed. It becomes evident 
that the degree to which the results of measurement are useful is pro- 
portional to the accuracy and thoroughness with which there results are 
analysed. 

In order to effectively evaluate the attainment of 'his students accurately 
and fairly, a professor must have adequate measurement ; technique s -at 
his desposal. He must k?imv how to use them properly, and how to Interpret 
results' obtained by their use, However, an unfortunate characteristic of 
evaluative techniques is that they are very time, consuming. 

It is the purpose of this project to write a program for the IBM 1620 
Computer which will relieve the professors and their assistants of the 
burden of manually calculating from a given sex of a maxixnum of 500 test 
scores, the arithmetic mean, standard deviation, alpha -three,, alpha -four,- 
reliability of the test, the rank, percentile rank, z -score* and t» score for 
each student.' 



EQUATIONS USED 



Alpha -three: 
Alpha -fours 

Arithmetic Mean: 
Pe rcentile Rank; 
Reliability of Test; 
Standard Deviation; 

T "Score (Sigma Score); 
Z -Score (Standard Score): 



Alpha-3=_1_ ^ (Xi-X)3 
ncr- 5 i=l 

Alpha-4 = 1 - a 



$ ^ (Xi-X)4 



X = 1 



n t§F 



PR = 100 (n * rank) 
n 

R t = I 2 - X (I - X) 
C7-2 . i) 



(Xi - X)< 



T -Score = 50 4- 10 (Z score) 



Z -Score = Xj - X 



Legend: 



I « Total Possible Points 
n = Number taking the test 
N = n if riH: 30 
n-1 if n<30 
Rt = Reliability of the test 

= Standard Deviation 
X ~ Arithmetic Mean 
Xi = Individual Score 



REFERENCES 



Alpha-threes p. 102* 

Alpha -four: p 104* 

Arithmetic Meant p„ 45* 

Percentile Rank? p. 37 2 

Reliability of Tests p„ 152* 
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T -Score p 442 

Z-Score p. 44?- 



John E. Fruend, Modern Elementary Statistics (Englewood Cliffs, 1963), 
p. (indicated above h 

Victor H, Noll, Introd uction to Educational Measurement (&08ton t 195? }, 
p. (indicated above) . • * 
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COMMENTS 

A lphas three; A widely used measure of skewness and symmetry is 
alpha-three. When alpha-three is greater than zero, the. tail of the. 
distribution is skewed to the right, and the distribution is said to be 
positively skewed; it is negatively skewed if the tail is at the left and 
alpha -three is less than zero. The distribution is perfectly symmetrical 
when alpha "three is exactly equal to zero. 

Alpha ~four; Peakedness or kurtosis is commonly described by alpha-four. 
When alpha- four is exactly equal to three, the distribution is said to have 
the familiar bell shape of the normal distribution. When alpha ~f our exceeds 
$hree, the distribution is very peaked and has a relatively wide tail; the 
distribution is flat in the middle and has a relatively thin tail when the value 
of alpha -four is less than three. 

Arithme tic Mean; The arithmetic mean is commonly known as the average. 
It is the sum of all the scores divided by the number of persons taking the 
test. 

Percentile Rank: The percentile rank is a derived score stated in terms of 
the percentage ox" examinees in a. specified group who fall below a. given score 
point. In other words, it describes a person s s relative standing within a 
particular group. Thus, a percentile rank of 80 means that a person's score 
was equal to or higher than the scores made by 80 percent of the people in a 
specified group. 

Rank;. The student with the highest score receives a rank of 1; the r«.ext 
highest score receives a rank of 2 9 and so on. The student .With the lowest 
score thus receives the highest rank., In. care of ties in rank,, we assign 
to each of the '.tied observations the mean of the ranks which they jointly 
occupy.. Hence, if two scores are tied for ranks 4 and S, we assign each 
rank 4 1/2; if. three observations are tied for rank® 10, l! t and IE, we 
as s ign each rank II. 

Reliability of the Test: This is a measure of the consistency with which a 
test; measures what it is intended to measure; it enables one to determine 
how much reliance he can place on the scores yielded by the teat, This 
particular formula is accurate enough for classroom tests and other ordinary 
situations; however, it usually gives an underestimate of the tiue reliability. 

Standard ^ yigjlog* In most distributions, approximately "34 per cent of the 
scores lie between the mean or average and a point or score that is one 
standard deviation away from the mean fin either direction]. In other words, 
approximately two-thirds of the cases or scores will fall within one standard 
deviation of the mean. 
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T -Score (Sigma Score) ; This is a standard score which has a mean of 
50. and a standard deviation of 10. 0. It is obtained by adding 50 to 
1 times the z -score. For example, the z -score -1. 4 and 1 . 4 correspond 
to the t •scores 36 and 64, respectively. It has been said that t-s cores 
are the best method that has been devised for direct comparison of in* 
dividual test results. 

2 "Score (Standard Score) ; The basic standard score "fcs the z- score. It 
tells in simple terms the difference or distance between %«<sjt?i*ed group's 
mean and any specified raw -score value. The mean is 0. a%d the standard 
deviation is 1 * . 

For example, suppose a student had a scare of 49 an*l he is to be 
compared with his clasu. Given that the mean and standard deviation are 
40. J and 6. 0, respectively, we find his z -score is (49 - 40)/^ * 1. 5, which 
corresponds to a t-scoxe of $0 + 10 (1. 5) s 65. In other words, this student's 
score is 1.5 standard deviations above the mean. This may; also be interpreted 
to mean that he scored better than about 93 per cent of the group. 
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PREPARATION OF DATA 



Data Cards: Each IBM data input card (except the header card) must be 
prepared in the following manner: 

Columns Field 



1-5 Student Number 

7-27 Name (see Exceptions, below) 

28-33 Score (floating-point with decimal in column 

32; may have one place to right of 
decimal in column 33) 


0» 
0. 
0. 
0. 

Header Carcb The first card of the data n ust contain in columns 28-33, 
the total possible points. Columns 40-73 are punched as stated above. 

Sorting; The data cards are then sorted in descending order, according to 
columns 28-33. After sorting is completed, the header card is then placed 
on top of the deck; it is the first data car*?. 

Limations: The program will handle a maximum of 500 individual test scores. 

Exceptions; The program is so design* d that columns 1-27 of the data input 
cards may be left blank without affecting the rest of the program. 



40 

46-47 
55-56 
64-65 
72-73 
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OUTPUT 



Printed Output: The arithmetic, mean* standard deviation, alpha -three, alpha** 
four, and the reliability of the test are printed out first (in that order, ) This 
information is printed regardless of the switch settings. 

The remaining information may or may not be printed out, depending on 
the switch settings. 

The heading, student number and name , score* number* rank, percentile 
rank, ss-score, and t-score is printed out next. 

Finally, each line of typed output contains the following information in the 
indicated order; student number, name, score, a "counter" number* rank, 
percentile rank* z-score, and t -score. Students receiving the same score are 
grouped together; the typewriter double spaces between groups. 

When the last card has been processed* the word STOP is printed. 

Punc&ed Output; The first seven cards contain the arithmetic mean, standard 
deviation* alpha-three, alpha -four, the reliability of the test* and two blank 
cards; This information is punched in columns 1 -35 . 

The Heading: Name, Sere, No, Rhk, Ptrk, Z-Scre, and T-Scxe is punched oh 
the eighth card. 

The remaining cards contain the following information 



Field 

1-5 Student Number 

7-27 Name 

28-33 6 core 

38-40 A "counter" number 

44-49 Rank 

54-59 Percentile Rank 

63-68 Z -Score 

71-76 T -Score 



Sorting Punched Output: The punched output cards may be sorted alphabetically 
by sorting in ascending order according to columns 1-5. (This assumes that 
the student numbers are assigned in sequence when the last names are in 
alphabetical order}. The first eight cards of the output will be rejected by the 
sorter because columns 1-5 are blank; feowever, save these cards to process 
through the Alphabetic Interpreter. 



-10- 

349 



Alphabetic Interpreting of Punched Output; The information contained in 
the punched output cards may be printed at the top of each card by means 
of the IBM 548 Alphabetic Interpreter. 

The alphameric interpreter board should be wired as follows: 

Wire Read Brushes to The Print Entries 

7-35 1-29 

38-40 30-32 

44-49 34-32 

54-59 41 46 

63-68 48-53 

71-76 55-60 
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MACHINE REQUIREMENTS 

Equipment Specifications: IBM 1620, 1622 
Storage Requirements: 20K 
Source Language: Afit FORTRAN 
Special Features; None 



O 
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PROGRAM EXECUTION 



Step -by-Step Procedure: As sume that the object deck is compiled and at 
hand. Then ?->- 

1 . Clear 1622 Card Read Punch. 

2. Load Af it Fortran loader, object deck* and the Afit Fortran Subroutines 
in the 1622. 

3. Check Switches . ' 

PARITY Check Switch STOP 
I/O Check Switch STOP 
OVERFLOW Check Switch PROGRAM 

4. Press RESET and Reader LOAD, 

5. Set Program Switches for desired option. 
Switch 2 ON for PUNCHED output. 
Switch 2 and 3 OFF for PRINTED output. 

Switch 2 and 3 ON for PRINTED and PUNCHED output. 
Switch 1 and 4 OFF. 

6. Press START 

7. Place data cards in the 1622 and press READER START. 

8. Press PUNCH START if necessary. 

9. Typewriter prints and/ or 1622 punches. 

10. Repeat Step 7. (i. e. two passes are required). 

11. Typewriter prints and/or 1622 punches. When the last card has been 
processed, the word STOP is typed. 



Expected Stops: If the data is not sorted in descending order, a "card 
out of sequence" message will be printed out and the. program will branch 
to the STOP command. The restart procedure is then necessary. 

The computer will automatically stop if more than 500 scores are 
read in. 

Restart Procedure: Press INSTANT STOP, RESET, INSERT, RELEASE, 
START, Repeat the step-by - step procedure for program execution. 
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Key Punch 
Data 




ELov Chart for 
Tes t Score Analysis 



Format 

Specification 
for I/O 




t 



Set Counters 
Equal to Zero 



Dimension Scre(fjOO) 



I 



Read Total 
Possible Points 



A 



Count the Number 
of Persons Taking 
the Test 




Tesr 



Head a 
Raw Score 




MS*- 



•e^ STOP ^ 



<=3 



35 4 




t 



Kind the Deviation 
of Each Score From 
the Mean 



C 



Kind the Sun of the 
Squared, Cubed, and 
the Fourth Power of 
the Deviations From 
the Mean 



t 



Use n for 

Calculation 

of 



-s3- 



No 



Is the Number of 
Persons Taking 
the Test 30? 



Xes 



Use (n-1) for 

Calculation 

of 



Calculate the 
Standard Deviation, 
Alpha-3, Alpha-li, 
and the Reliability 




PRINT, Arithmetic 
Mean, Standard 
Deviation, Alpha-; 
3, Alpha-U, and 
iteliability 




Off 



PRINT 7 
Heading / 




Read Total 
Possible ioints 



G 
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1tesd Student 
Unmber , Name, 
Raw Score 




No 




Compute Rank, 
Percentile Rank, 
Z~score, T-scdre 




On 



Off 



PUNCir, Student Number, 
Name, Score, No, Rank, 
Percentile Rank, 
Z-score, t-score 



Oa 



i 



PRINT, Student Number, 
Name, Score, No, Rank, y 
Percentile Rank, 
vZ^score, T-score 





*Where N equals ite number of persons talcing the test, 
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88000 C TEST SCORE ANALYSIS WAYNE E HOOVER 

98000 C COMPUTER CENTER IND !ANA STATE COLLEGE 

58000 C TERRE HAUTE* INDIANA HAY, 1964 

38000 !00 F0RMAT{27X & F6 o 1 5 l7,F9.2,F10 o 3,F9o3 ff F8.3) 

08108 390 F0RMAT(6X^HHAHE s 19K4HSCRE g 5K2HN0 9 5K3H^K,5K4HPTRKj ) 6K1 2HESCRE TSCR! 
08360 442 FORMAT (6X1 9HSTUDENT NO ANO NAME,3X,5HSCORE,5X, 2HNO,5X, SHRANK) 
08532 443 F0RHATO1H PCNT RANK,8H Z«SCRE 9 8H T-SCRE) 
58624 776 FORMATf/) 
08646 778 FORMAT!//) 

0867^ 889 FORMAT (6X18HAR ITHMET JC MEAN SS P11.3) 

58758 900 FORMAT (6X2 2HSTA N0ARD DEVIATION 8S F7« 3,7/6X1 1HALPHA 3 IS F18 3) 

08914 901 F0RMAT(6Xt t HALPHA 4 IS F1 83, //6X23HREL IAB IL ITY OF TEST SS F6 e 3) 

09072 999 FORMAT (//20HCARD OUT OF SEQUENCE) 

09146 SSCRE^0 o 

59170 OL D»1 000*0 

59194 SAFA3«0 o 

59218 SAFA4«0 o 

09242 S0E¥»O O O 

59266 N»0 

59290 DIMENSION SCRE(SOO) 
59290 READ 100,TPTS,Z1,Z2,Z3,Z4,Z5 
09374 13 H-N+l 
99410 IF (N~500}l4 () l4 f 99 
59478 14 READ 100,SCR£(N),Z1,Z2,Z3»Z4,Z5 
99586 IF (0LD-SCRE(N))16, 18,18 
16 PRINT 999 
GO TO 99 
99706 18 $SCRE«SSCR£*SCRE(N) 
59766 OLD«SCRE{M) 

09814 IF (SENSE SWITCH 9)21,13 ^ 
09834 21 TNMBR»N 
59858 AMEAN»SSC&£/?NMBR 
09894 MM3R«N 
§9918 DO 30 N*t e NM8R 
6993 VAR«SCRE ( H ) ~AMEAN 
59990 SD£V**S0EV*¥AR**2 
T0038 SAFA3»SAFA3*VAR**3 
T0086 30 SAFA4**SAFA4*VAR**4 
|0170 IF (N~30)37 ,37*35 
T0238 35 TOTAL-M 
T0262 GO TO 38 
T0270 37 TOTAL-N-1 
T0306 38 STDVfr>SDEV/TOTAL 
T034.2- STDV*SQRT(STDV2) 
T0366 ALFA3«SAFA3/ ( TNMBR*STDV**3 ) 
"0426 ALFA4«SAFA4/(m*BR*STDV**4) 

REL«(TPTS*STDV2^MEAN*(TPTS^MEAN))/(ST0¥2*CTPTS«>1 o 0)) 
IF (SENSE SWITCH 2)8$, 89 
85 PUNCH 889.AMEAN 
0698 PUNCH 900„STDV,ALFA3 
YC734 PUNCH 901 ' n ALFA4 e REL 
89 PRINT 776' 

357 
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1079k PRINT 889,AHEAN 

T08I8 print 778 

T0842 PRINT 900,STDV P ALFA3 

T0878 PR INT 778 

T0902 PRINT 90t,AlFA4,REL 

T0938 PRINT 778 

10962 IF (SENSE SWITCH 2)39 9 42 

T0982 39 PUNCH 390 

T10O6 41 IF (SENSE SWITCH 3)42,44 

T1026 42 PRINT 778 

T1050 PRINT 442 

T1074 PRINT 443 

T1098 PRINT 776 

T1122 44 GUM 000.0 

Tt 1^6 READ IOO,TPTS & Z! e 22,Z3 9 Z% 9 Z5 

T1230 00 83 K»t*NHBR 

T1242 READ !00 9 SCRE(N),Zf ,Z2,Z3,Z4,Z5 

T1350 J»N 

T1374 IF (N-NMBR)5!,63 8 99 

Tl442 51 IF (SCRE(N) 4CRE(N*1))16 P 52 9 62 

T.I554 52 IF (J-1)99,54,53 

T1622 53 IF (SCRE(IM)-SCRE(N))16,64,54 

T1734 54 SAVEW»N 

T17S8 55 N*H+1 

T1794 IF ( N«NMBR )57»58 g 99 

T1862 57 IF (SCRE(N)^SCRE(N^I))16,55,58 

T1974 58 TH |.SN*N 

Tf998 ADD«(THISN~SAVEN)/2 o 

T2046 SRAN&**SAVEN*&D0 

12082 GO TO 64 

T2090 62 IF (J~1)99 e 66,63 

T2158 63 IF (SCRE(II-1)-SCRE(N))16,64,66 

T2270 64 RANK«SRANK 

12294 GO TO 67 

T2302 66 RANK«N 

T2326 67 N*J 

T2350 P&ANK* ((TlttBR-4Mim)*100„0)/TNMBfl 

T2410 ZS€RE»(SCREfN)-AMEAN)/STDV 
T2482 T$CRE«ZSCRE*10 e 0*5O o O 
T2530 IF (SENSE SWITCH 2)73,75 

T2550 73 PUNCH 1OO,SCRE(N) lJ N f? RANK e PRANK ZSCRE 9 TS€RE 

T2658 IF (SENSE SWITCH 3)75 e 82 

T2678 75 IF(OLD-SCRECN})l6,76 e 78 

12766 76 PRINT 776 

T2790 GO TO 79 

T2798 78 'PR .INT -778 

T2822 79 PR INT 1 0O. f SCRE( N) 8 N ^RANK , PRANK „ ZSCRE 9 TSCRE 

T2930 82 OLD*SCRE(N) 

T2978 83 CONT INUE 

T3014 99 STOP 
T3022. END 

ENO OF COMPILATION T354lT38t0 
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Legand: Source Progr am 



ALFA 3 
ALFA 4 
AM SAN 
NMBR 
PRANK 
RID L 
SAFA 3 

SAFA 4 

SCRE 
SDEV 

SSCRE 

STDY 
STDY 2 
STDV 3 
STDY 4 
TNMBR 
TOTAL 

TPTS 



alpha -thres 
alpha -four 
arithmetic mean 

total number of persons -taking the test 

percentile rank 

reliability of the test 
n 

EI ixi - ici 3 

i-l 



■ J~ <Xi -.X| 
i-l 



individual test score (raw score] 
(Xi -■ X) 



n 

V— Xi 



standard deviation 
cr 4 

total number of persons talcing the test. 
TNMBR - 1. if TNMBR *g£ 30 



= TNMBR 



if TNMBR 30 



total possible points or total number of test items, which 
ever is greater. 
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TSCRE " T-SCRE 

VAR ' (Xi - X! 

ZSCRE Z-SCORE- 

ZI - Z5 ~ Dummy Variables 



ARITHMETIC MEAN SS 82,256 
STANDARD DEV1A7 ION . IS ! 1 .094 
ALPHA 3 IS - e 628 
ALPHA % IS 3*695 
REL (ABILITY OF TEST IS .890 



STUDENT NO AMD NAME SCORE 
12550 BUSH ; DONALD JOSEPH 



28356 FOSLER LARRY RICHARD 

6561*0 PENH INGTON GAIL LEA 
84B90 TATEM JOHN DAVID 
68090 PROP ST PARREL I. 



42645 JENSEN JAY WAYNE 

74565 SCHERB JOHN FREDEIt I.CK 

25890 EVANS MELVIN ERNEST 
33150 GRIFFITH JOHN H 
43336 JOHNSON STEPHEN R 
44700 &EEGAN GARY LEE 
47600 &RENKE GLEN LEE 
48006 KUYKENDALL JOHN A 
53125 MA PES REX MARSHALL 

03050 BAKER DOYLE SIMON 
70260 RICE JAMES HAROLD 
75778 SEIM KENNETH BRUCE 

54750 MC ATEE DON SCOTT 
55975 MC - DWELL MARSHA G 

39370 HOFFMAN DAVID CHARLES 
76548 SHEEHAN JAMES EVERETT 82 o 

60600 MOYER MICHAEL A 
77387 SHOULDERS MICHAEL C 

17800 CORB I N JAMES B 
24965 ELLER LARRY ALLEN 



NO 



Z-SCRE Y-SCRE 



98„0 


1 


1 „§0 


96 153 


1 419 


64.190 


98 o 


2 


1o50 


96.153 


1*419 


64.190 


96o 


3 


4 o 50 




1„238 


62.387 


96, 


4 


4, SO 


88,461 


1 .238 


6?, 387 


96 e 


5 


4,50 


88.461 


1.238 


62.387 


96c 


6 


4 e 50 


88.361. 


1 238 


62.387 


95o0 


7 


7 c 00 


82.051 


1.148 


61.486 


94 Q 


8 


8 o 00 


79o487 


1*058 


60 o 58S 


92 o 


9 


9o00 


76.923 


0878 


58.78^ 


88.0 


10 


13*00 


660666 


o517 


55o177 


38*0 

00 


1 1 


13o00 


ODD 


o517 


55 177. 


Si •> 

! 2 


13o00 


66 » 666 


• 517 


55o177 


88,0 


13 


13*00 


660666 


5 1 7 


55*177 


88 „0 


14 


13*00 


66,666 


o517 


.55*177 




15 


!3oG0 


' 66 o 666 


,517 


55 177 


88.0 


16 


13.00 


66 666 


Q 517 


55*177 


86.0 


17 


18.00 


53 846 


:o337 


53,374 


86 o 


18 


!8 O Q0 


53 . 846 


a 337 


53*374 


86.0 


.19 


18 00 


53 846 


o337 


53 374 


84. 


20 


20 c 50 


47 435 


o157 


51*571 


84 o 


21 


■20*50' 


47c 435 


• 157 


51*571 


82.0 


22 


22*50 


42„-307 


-o023 


49 768 


82 o 


23 


22*50 


42.307 


-o023 


49,768 


80*0 


24 


24 o 50 


37*179 


~.2Q3 


47 966 
47 966 


80..0 


25 


24.50 


37*179 


^203 


78,0 


26 


26.50 


32,051 


-o383 


46, 163 


78 o 


27 


26.50 


32.'Q51 


**o383 


46.163. 



G 
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21.310 ECHARD WM RANDALL 76.0 28 29.50 24.3|| ? 5°3 44.3|Q 

64265 PAIGE WANDA ELMNE 76.0 29 29.50 |^||8 ».j|3 W.3|0 

6«>90 PATRICK GERRY WAYNE 76.0 30 29.50 24 3|| -.j.63 

WiLDER RICHARD LYNN 76.0 3? 29.50 24.358 **.3&0 

55475 MC COY CAROL RUTH 74.0 32 32.00 17.948 -.744 42.558 

22977 DOUGHERTY CHARLES £ 70.0 33 33.50 14.102 -J.JOj | ■ |J.*| 



25383 EMMERT ROBERT CARL 70.0 3h 

02025 ARMSTEAD ROBERT LEE 69.0 35 35.00 10.256 ~1d9* 38 o 051 

69130 RAUSCH MICHAEL 6M 36 3|.|0. 6.J10 -1..|J5 3|.|{J 

73936 SANDERS JAKES W 6** o Si 36,50 6 a ^10 

62097 NEWHARD NANCY FAYE 62.0 38 33 o 00 2 $(>h -1.825 3U7M 

2B065 FOLTA JAMES VINCENT *»8 o 39 39.00 ,000 -3o087 19.122 
STOP 
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PROPOSAL FOR AN 
ADDITION IN GRADE REPORTING 
PROCEDURES TO ALLOW FOR 
AUTOMATIC PROCESSING OF PROBATION STUDENTS 



Indiana State College 
Computer Center 
May 5, 1964 



FLOW 



OF 

PROCEDURE 



Explanation of Flow Chart 

A All card files are merged together in alphabetical sequence by 
student number. 

B Computer writes grade reports and updates student index file. 
Probation cards for failing students. Store used cards. 

C Grade reports to students and school officials. 

D Output: New student index cards and probation report writing cards. 

E New index cards go back into file for report use. 

F Probation report cards are sorted by school. 

G Probation reports are printed and sent to the deans of the schools. 

H Probation cards are stored. 



365 



© 






Student Grade 
Card File 



Student Index 
Card File 



Student Index 
Exception Card 
File 



Student Name 
and Address 
Card 



Comment Card 
File 




grade card 



Separate and 
Store for Futur 
Use 





f grade 



I 



To Students and c. c. to 
concerned -school autho 



Drirft-i 



grade 
report 



updated 
index card 



findex card.s 



( index card 



f index card 



( index card 



faew Student 
index card file 



^3 




To F 



Page 1 




^Probation 



f probation 
( Probation 



Probation Report 
Card File 




Separate 

by 
Schools 





fSchool of 
Education 



/ probation 



School of 

Liberal AtW 




School of 
Business 
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CARD 
JUSTIFICATION 



Explanation of Card File 



After completion of Step A (shown by the flow chart), the input to the 
computer consists of multiple card groups, one per student. It is the 
purpose of this report to show the need for including each type of card. 

The speed and efficiency of any data processing procedure are largely 
dependant upon the volume of data to be processed. Because card volume 
is of such importance, it is to the users advantage to keep it at a minimum. 

The five types of input data cards necessary for the student academic 
progress reports follow. They are: 

Card 1 - Student Class Grade Card 

These cards enter the flow through the registration line. They are the 
yellow striped cards the student submits for each class he attempts. After 
registration, the cards are held until the instructors turn in their grades. 
Each grade, with the respective grade points, is entered on the correct 
grade card. The result of this activity leaves a workable file of all work 
completed on punched cards. 

Card 2 - Student Index Card 

A continuous file of student index cards is maintained by the Computer 
Center. This file records the complete scholastic history and present status 
of each student. It is this card that records the amount of college work 
completed, with the grade average earned for this work - on a cumulative 
basis, and also on a single semester basis. 

Such information as where the student lives, what social organization 
does he belong to, the number of credit hours transferred in from other 
colleges, his first two major areas of study, his minor area of study, and 
the sex, is all recorded in a numerical code on this card. 

It is the student index card that facilitates all reports on academic pro- 
gress'from a report showing the current and cumulative index of each girl 
living on the third floor of Reeve Hall, to a report of the numbers of hours 
all Education majors carried any given semester. 

Because this card is so vital to our work, and because the grade report 
contains both cumulative and current credit hours, grade points earned, and 
grade point ratio, it is necessary for this card to be re -computed at each 
semester's end. 
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Card 3 -- Student Required Index Exception Card 

The purpose of this card file is to automate the detailed processing of 
students having scholastic problems. Because the student's academic 
progress is of upmost concern to the college, careful monitoring and guidance 
techniques are essential. The inclusion of this card greatly facilitates much 
of the detailed analysis work necessary. 

The student index card allows the proper school authorities to care- 
fully supervise the progress of a student. By submitting a probation form 
to the Computer Center, a school official can stipulate exactly what scho- 
lastic level of achievement must be met. This is done by simply stating 
what grade point ratio the student must earn, either on a cumulative, or 
semester basis. This information is then entered into the student's card 
group and allows the computer to analyze the student's work accordingly. 

If the student fails to meet this requirement, the computer will generate 
a card from which a complete scholastic report can be written and sent to 
the appropriate official. 

The card is labeled "exception" because, in the absence of such a card, 
the computer will use the standard required index schedule to analyze the 
student. See Probation Scaling. 

Card 4 -- Student Name and Address Card 

The name and address card allows for automatic addressing of the grade 
report. 

Card 5 -- Comment Card 

The comment card allows a school official a maximum of two lines 
(68 characters) of comment on the student grade report. Through the use 
of a comment code, the comment may be printed only if the student fails 
to meet specified grade conditions. It is also possible to print the comment 
under any conditions. See Comment Printing. 
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Output Data Cards 

Two types of cards are generated by the computer. The first, an g~y, i 
updated student index card, replaces the input student index card (see 
card 2 - student index card). 



The second, a probation report card (card 6), is punched for every 
student falling below certain minimum grade average requirements. 

The purpose of this card is to allow a file of cards to be maintained on 
all probation students. A more complete description of this will be found 
under Probation Report. 



Comment Printing 

The grade processing procedure utilizes two kinds of comments. The 
first type, those entered on the comment card, may be worded as the school 
official desires. However, because the probation report sent to the school 
authorities should explain what kind of comment was made, and who authorized 
the comment, the inclusion of an authority code, and of a comment class- 
ification code is necessary. 



The classification of comments is as follows (without respect to wording): 

Code Description (j^) 

1 Place on Probation 

2 Contact the Dean of your 

school 

3 Contact the Registrar 

4 Withdrawn from school 

for scholastic reasons 

5 Withhold Permit to Register 
6 

7 
8 

9 Machine generated probation 

comment. 



The authority codes are as follows: 



Code Description 

1 Registrar 

2 Dean of Students 

3 Business Office 

4 Dean of the School of Ed. 

5 Dean of the School of Lib. Arts 
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Computer Center 



It should be noted that the presence of a comment does not necessarily 
mean a student is on probation. 

A special punch over the comment code will suppress printing if the 
required index is met or exceeded. Thus, a code 1 and this special punch 
would read J, a 2 would read K, 3 - L, etc. 

The second form of comment, ma chine -gene rated, are those printed on 
the grade report to notify the student he is being placed on probation, or 
that he is being removed from probation status. These comments will be 
indentified by a code 9. 
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Probation Scaling 



As each student index card enters the computer during grade pro- 
cessing, the probation code found in card column 47 will be examined. 
A zero in this column indicates the student is not on probation this 
semester, any other digit means that the student was on probation last 
semester, i.e. , a 3 would indicate a probation student for the 3 pre- 
ceding semesters. If the student again fails to earn a satisfactory grade 
index, the probation code will be incremented by 1. If the student earns 
a satisfactory average, the probation code will be made zero. 

As each student's grades are processed and the new cumulative hours 
and grade points are brought up to date, the computer will, in the absence 
of a required index exception card, scale the cumulative hours and find the 
required grade -point average. The scale is as follows: 

Cumulative Hours Required Grade -Point Average 

0-16 1. 00 

17-32 1. 25 

33-45 1.50 
46 - 60 1. 80 

61 + 2. 00 



Any student who does not meet or exceed this scale will be automatically 
placed on probation. The probation code for such students will be in- 
cremented and a "Probation Report Card" (card 6) will be generated. 

The computer will notify such students of this condition by - in the 
absence of a comment card - printing on the grade report. See comment 
printing . 

Special Provisions 



If a "Required Index Exception Card" (card 3) is present, their 
grade -point average will be scaled as specified by this card. 



CARD 
FORMAT 
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Card 



1 



Student Class Grade Card 

Card Column 
1-5 
6 

7-27 
28 
29 

30-32 

33-36 

37-40 

41-42 

43-57 

58-61 

62-65 

66-70 

71-72 

73-74 

75-77 

79 

80 



Description 
Student Number 
School 
Name 

Classification 
Curriculum 
Number in Class 
Department 
Course Number 
Section Number 
Course Description 
Course Number 
Time Class Meets 
Days Class Meets 
Semester Code 
Grade 

Grade Points 
Hours of Credit 
Code 1 



Card 



Student Index Card 

Card Column 
1-5 
6 

7-27 
28-31 
32-35 
36-38 
39-40 
41-43 
44-46 
47 
48 
49 

50-51 
58-61 
62-63 
64-65 
66 

67-69 

70 

71 

72-73 

74-75 

76-77 

78 

80 



Description 
Student Number 
School 
Name 

Cumulative Hours 

Cumulative Points 

Cumulative Grade Point Ratio 

Semester Hours 

Semester Points 

Semester Grade Point Ratio 

Probation Code 

Grade Point Ratio 

Hours 

Housing 

Total Hours Toward Graduation 

Hall 

House 

Social Organization 

Semester Code 

New or Transfer Students 

Teaching or Non-Teaching 

Minor 

Second Major 
First Major 
Sex 
Code 2 
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Card 



Student Required Index Exception Card 

Card Column Description 
1-5 Student Number 

6 School 
7-27 Name 
28 Authority 

29-31 Required Cumulative Index 

to be Earned 

32-34 Required Semester Index to 

be Earned 

35-37 Semester Code 

80 Code 4 



o 
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Card Format 



Card 



Student Name and Address Card 

Card Column Description 

Student Number 

^ School 

7-27 Name 

28-51 Street Address 

52-72 City and State 

80* Code 1 
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Card 
5 

Comment Card 

Card Column 
1-5 
6 
7 
8 

9-11 
12-45 

46-79 
80 



Description 
Student Number 
School 
Authority 
Comment Code 
Semester Code 
First Line of Comment 
Second Line of Comment 
Code 5 
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Card Coding For Schools 



Card Column 6 Of All Cards 



Code School 

1 Education 

2 Liberal Arts 

3 Business 

4 Nursing 

5 Other 

Card Coding For Classification 
Card Column 49 Student Index Card 
Card Column 75 of Probation Report Card 

Cumulative 

Code Classification Number of Hours 

1 Freshman 0-27 

2 Sophomore 28 - 56 

3 Junior 57 - 85 

4 Senior 86 - 124 

5 Other 



380 



o 



FORMS 




Probation and Comment Request Form 



GO, 
CO 



To: Computer Center 
Date: / 1964 

Please a Place on Probation O Withhold the Permit to Register 

If a EJ cumulative £7 current grade "point ratio 



CD Make the Following Comment 
only, 



Mr. Mrs. Miss 
Student Name 

is not earned. 



Student Number Do Not Fill This Out For A Comment Only 



Please make the following comment L / on the Grade Report d if the student is placed on probation, 

Comment 
Code 

ID regardless of the scholastic achievement. 
First Line of Comment 



34 Characters only - Include Blank Spaces 

Second Line of Comment _ 

Classification of Comment / / AUTHORITY CODE 



Signature of Authority 



Q 
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Probation Report 

After grade processing the probation report cards will be used to generate a report of all students 
currently on probation. The format of this report is as follows: 



CO 



Student 
Numbe r 



Student 
Name 



>> 

■M 
•H 
U 

o 
3 



<{ Hours Points GPR Hours Points 



Total Hrs 
Toward 



Required 
Index 



4-> 

Si 
So 

o 
O 



o 

•H 
■M 

.£> 


a. 



*8 



U 



09 

a 
o 

•H 

44 

co O 



INDIANA STATE COLLEGE 
COMPUTER CENTER 



9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 8 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

1 2 3 4 5 6 7 • 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 28 27 28 29 30 31 32 33 34 35 36 37 38 39 <0 41 42 43 44 45 48 47 48 49 50 51 52 53 54 55 56 57 56 59 H SI 62 63 64 8S 66 87 68 19 70 71 72 73 74 75 76 77 78 79 10 





9 
c 

B 
• 

i. 


STUDEHT NAME 


e 
u 

i 

1 
« 

t 

9 

28 


% 

i 

9 

29 


IN 

ClASi 


Den. 


Com* 
TV**!*** 


S 
ft 
C 
T 


H 

99 

41 42 


Cot/Asr PjKCAirrtcA/ 


Co</*.f£ 
coot. 


Class Mekts 


5 
ff 

M 

I 
* 

99 

71 72 


G 

R 
A 

f 

99 

73 74 


G 

u 

o o 
k ' 

? 
i 

999 

75 76 77 


9 
71 


H 

9 
n 


I 
\ 

A. 
1 

9 

60 


Tme 




9 9 9 9 9 

1 2 3 4 5 


9 

6 


9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 


999 

30 31 32 


9 9 9 9 

33 34 35 36 


9 9 9 9 

37 38 39 40 


99 9 9 99 999 999 999 

43 44 4548 47 484950 51 5253545556 57 


9 9 9 9 

58 59 60 61 


i 
i 

9 9*9 

62 13 *64 65 


9 9 9 9 9 

66 67 66 61 70 



Grade 



9999 9999 99 99 9 9 999 999 99 99 999999 9999 9999 999 9 999999 999 9 99 9999999 9 999999999999999999 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 46 49 50 51 52 S3 54 55 56 57 58 59 60 61 62 63 64 65 66 67 61 60 70 71 72 73 74 75 71 77 71 71 N 



Student 


9 

6 


STUDENT WM£ 
999999999999999999999 

7 8 9 10 11 12 13 14 15 16 17 16 19 20 21 22 23 24 25 26 27 


STREET ADDRESS 
9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

28 29 30 31 32 33 34 35 36 37 36 39 40 41 42 43 44 45 46 47 46 49 50 51 


CITY i STATE 
999999999999999999999999 

52 53545556 57 585960 61 626364656667686970 71 7273 74 75 


9 9 9 9 

76 77 71 71 


! 

4 

9 

80 


99 9 9 9 

1 2 3 4 5 



Address 



9 9 9999999999999999999999999999999999999999999999999999 9 99999999999 9 9 999999999999 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 36 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 56 59 60 61 62 63 64 65 66 67 66 69 70 71 72 73 74 75 78 77 71.71 SO 



Stuosnt ] 


> 
< 

Student Name i 
L I 


' CUMULATIi/S 


C(/AA£fiT 


TtTAt. 

Horns 




* % i 

i 1 

M 

19! 
■ at 


; s 1 

■ 3 

\ I 

199 

61 62 


M 
A 

I 
ft 

99 

63 64 


M 
1 

N 

R 

99 

6S66 


c 
• 

9 9 9 9 9 9 9 9 9 

67 68 69 70 71 72 73 74 IS 


f 

* I 

9 9 9 9 9 

76 77 76 79 M 




PoInt* 


Ratio 


H/rs. 






CUHfi 




99999$ 

1 2 3 4 5 6 


- — , i 

i 
y 

1 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 J 

7 8 9 10 11 12 13 14 IS 16 17 18 19 20 21 22 23 24 25 26 27 2 


1 
1 

19 9 9 9 

8 29 30 31 |32 


1 
1 

9 9 9i9 

33 34 35j36 


1 
1 

9|9 9 

37*38 39 
-J 


99 

40 41 


999 

42 43 44 


999 

45 46 47 


\ 
l 

9 9 9|9 

48 49 50|51 


■ r 
i 

9 ,9 9 
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PROGRAM 1 

D escription: 

This program extends the enrollment and class hour figures in the 
2 cards. The input, the 2 cards sorted by Department Number, is read 
from the 1622 card reader. The computer multiplies the . enrollment 
figure times the class hour figure. The entire 2 card is reproduced for 
output - containing the extended amount in card columns 26-31. 

When a change in Department Number occurs, the machine will 
generate a 3 card. Therefore, there should be one 3 card for every depart- 
ment entered. The 3 card will contain: The Year, Dept. No. , Total Student 
Class Figure, and the Total FTE Staff Figure. Both totals are from the 2 
cards . 

Error Conditions: 

As the file goes through the machine, a sequence check for equal groups 
is performed. If a 2 card is out of order an error message will be typed on 
the typewriter ("error in Dept. sequence."). Because the computer recogni 
an error condition on an "Not Equal and Not High" compare break, the 
department to which the error card belongs may have already passed com- 
pletely through. In such a case it will be necessary to: 

1. Adjust the 3 card for that department. 

2. Rerun the department with the card included. 

Irrespective of which method is used, the run must be started from the 
first department for which there is no 3 card. 



Switch Settings : 

I/O - Stop 

Parity - Stop 
Overflow - Stop 

Console Switches : 

Sw. 1 Not Used 

Sw . 2 Not Used 

Sw . 3 See Operating, Suggestions 

Sw. 4 Not Used 
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PROGRAM 2 

Description: 

This program is used to pro-rate the number two cards. After 
Program i is complete, the Department Total cards (3 cards) have two 
total expense amounts keypunched in them. These cards are then placed 
back in the file of 2 cards in front of their respective department files. 
This program (Program 2) then accepts that file as data. The program 
accepts the data in sequential order (by Dept. No. - 3 card first, follow e.d 
by the two cards) and pro -rates the two amounts from each 3 card into 
each two card. 

The two amounts to be allocated are found in card columns 19-24 
and 25-30 of each 3 card. The first amount is pro -rated by weighting 
the student class hours figure on each 2 card against the total student class 
hour amount on its respective 3 card. This is then applied to the first total 
(stored in the machine) for each 2 card's share. The second amount is pro- 
rated on a similar basis, i.e., FTE. figures are weighted. The remainders 
are carried into the following dividend, allowing the last card to zero-balance 
the amount to be allocated and the amount allocated. 

Error Conditions : 

The program tests for six error conditions during processing. If an 
error condition is detected, the computer will type "Error N" and halt. 
The six error conditions follow: 

Error 



1 Sequence - 3 card 

2 Sequence - 2 card 

3 Amount allocated on student hours doesn't 

zero balance 

4 Amount allocated on FTE doesn't zero balance 

5 Student hours from 2 cards do not equal total 

from 3 card 

6 .FTE percentages from 2 cards do not equal total 

from 3 card 



On any of the above conditions, except 1 and 2, it will be necessary to start 
from the last department not completely processed. 
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PROGRAM 2 

Switch Settings : 

I/O - Stop 

Parity - Stop 
Overflow - Stop 

Console Switches : 

Sw. i Not Used 

Sw.2 Not Used 

Sw. 3 Must be same setting as in Program 1 

Sw .4 Not Used 
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PROGRAM 3 

Pes cription : 

This program allocates the pro -rated totals on the two cards to a 
7 card for each course. The output from Program 2 is sorted into course 
within department order (card columns 5-10) with the 7 cards then being 
merged in. If the data is in correct order, there will be one seven card 
in front of every group of 2 cards. 

The program accepts its data through the card reader. The compute r 
will read all the data cards for an entire department, then punch a new 7 
card with the sum of the three expense totals from the two cards (FTE 
Expense + Salary Expense + Student Class Hours Expense) allocated to the 
six different grade levels (Freshmen, Sophomore, Junior, Senior, Special 
and Graduate). The total enrollment of each class is weighted against the 
remainder from each division is carried to the following dividend to zero- 
balance the last card of each group. 

The 7 card generated, then, has the complete cost of the course 
allocated to each class of students. 

Error Conditions : 

The program is extremely limited as to the number of error condition 
it can check. The 7 cards are presumed to have been crossfooted, and the 
2 cards have been through the machine checks of Program 1 and 2. Three 
error conditions might arise. They are: 

1. An unmatched two card 

2. A sequence error 

3. The 7 card allocation did not zero balance - This would happen if 
a 2 card was missing. 

On any error condition, the typewrite will describe the error and halt. It 
is then necessary to start over, from the last course 7 card not punched. 

Switch Settings : 

I/O - Stop 

Parity - Stop 
Overflow - Stop 

Console Switch Settings: 
Not Used 
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OPERATING SUGGESTIONS 

1. Before running any program, clear the machine. This is done by 
pressing "Reset", then "Insert" on the computer console. Type 
in 260000800009, then press the R-S key. Wait about 1/8 of a 
second and depress "Instant Stop" . Then press "Reset". 

2. After clearing the machine, place one of the object decks in the read 
hopper and press "Load" (This is the yellow button). After the 
machine stops reading, press the green "Reader Start" to read in 
the last cardi The machine will be in the manual mode at this point. 
liOad the data in the read hopper, and blank cards in the punch hopper 
and press Start to begin processing. 

3. If programs one and two are used with switch 3 off, there will be a 
duplication of output. That is, Program 1 extends the two cards with 
switch 3 off. This may be avoided by using the programs with switch 
3 on (Programs 1 and 2). This method will allow just Program 2 to 

g enerate the 2 cards. Program 1 will then punch only the 3 cards 

and Program 2 will extend the 2 cards as it pro-rates them. Irrespective 

of the switch setting used, it must be the same for both programs. 

See the following flow chart for a more complete description. 
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Equipment Specifications 
2 OK 1620 Computer 
1622 Card/ Punch Unit 

Additional Features 

TNS and TNF Instructions* 

Indirect Addressing Not Used 



*These instructions greatly facilitate numeric conversion, but if not 
available, they may be simulated with several transmit digit instructions. 
As an example of this substitution, Program 1, line 01090 (TNS in+10, 
Now, Dept. No. 3-6) might be changed to: 

TD Now, in+10 

TD Now - 1, in+8 

TD Now - 2, in+6 

TD Now - 3, in+4 

SF Now - 3 

This is'because a number such as 0036 will be read as 7070737 6. 
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The output from Program 1 with Switch 3 ON is merged in the input file. 
This then becomes the input for Program 2. 
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This report contains a summary of information by department, residence 
halls, sororities, fraternities, non-sorority, non-fraternity and by total 
student body. 

This report ,deals exclusively with the undergraduate student body. 
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All Students 



Number of Hours Grade Points Grade -Point 

Students Attempted Earned Ratio 

Men 3,150 40,290 89,102.0 2.21 

Women 2,321 29, 697 74, 730. 2. 52 

Total 5,471 69,987 163,832.0 2.34 



Fraternities* 



Alpha Tau Omega 
Lambda Chi Alpha 
Pi Lambda Phi 
Sigma Phi Epsilon 
Tau Kappa Epsilon 
Theta Chi 
Total 



Number of Credit Hours Grade Points Grade-Point 
Students Attempted Earned Average 



46 
102 

31 
105 

87 

42 



413 



643 
1, 332 

430 
1, 407 
1, 186 

608 



5, 606 



1, 500. 5 
3, 163. 5 
988. 
3, 239. 5 
2,705. 
1, 433. 



13, 029- 5 



2. 33 
2. 38 
2. 30 
2. 30 
2. 28 
2. 36 



2. 32 



Non -Fraternity Men 2,737 



34, 684 



76,072.5 



2. 19 
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Sororities* 



Number of Credit Hours Grade Points Grade -Point 
Students Attempted Earned Ave rage 



Alpha Omicron Phi 
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2. 
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2. 
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58, 944. 
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By Area Major 



Major 



Number of 
Students 



Hours 
Attempted 



Grade Points 
Earned 



Grade -Point 
Average 



Art 113 

Business 794 

English 302 

Foreign Language 137 

Home Economics 165 

Industrial Education 418 

Journalism 5 

Liberal Arts 102 

Mathematics 267 

Music 148 

Nursing 85 

Phy. Ed. Men 421 

Phy. Ed. Women 108 

Science 517 

Social Studies 587 

Speech and Radio 115 

Special Education 148 

Elem. - Fresh. 342 

Elem. - Soph. 245 

Elem. - Jr. 280 

Elem. - Sr. 172 

Total 5,471 



1, 286 
10, 073 
3, 895 

1, 300 

2, 131 
5,351 

37 
972 

3, 552 
2, 090 

790 
5, 511 
1, 384 
6,803 
7,740 
1,538 
1,939 
4,729 
3,330 
3,964 
1, 572 
69, 987 



2, 974. 5 
22,351.0 
10, 128. 

3,696.0 
5, 162. 

11,920. 
69.5 
1, 801. 
8, 550.0 
4,977.5 
1,950. 5 

11,252.5 

3, 220. 
16,693.5 
17,654.0 

3,757.5 
4,819.5 

10, 175.5 
7, 835. 

10, 269.5 

4, 575.0 
163, 832. 



2.31 

2.22 

2.60 

2.84 

2,42 

2. 23 

1.88 

1.85 

2.41 

2.38 

2.47 

2.04 

2. 33 

2.45 

2.28 

2.44 

2.49 

2. 15 

2. 35 

2.59 

2.91 

2. 34 
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By Residence Halls 



Burford Hall 
E ricks on Hall 
Pickerl Hall 
Reeve Hall 
Total 



Gillum Hall 



Hulman Center 



Parsons Hall 



Sandis on Hall 



Total 



Female 

Number of Credit Hours Grade Points Grade -Point 
Students Attempted Earned Ratio 



286 
277 
290 
326 



1, 179 



304 
309 
298 
298 



4, 194 
4, 046 
4, 334 
4, 724 



10, 117.0 
10, 004.0 

10, 669.5 

11, 392.5 



17, 298 



42, 183. 



4, 338 
4, 163 
4, 326 
4, 360 



9, 411. 5 
9, 049. 

8, 452. 

9, 748. 5 



2. 41 
2. 47 
2. 46 
2. 41 



2. 44 



Male 



Number of Credit Hours Grade Points Grade-Point 
Students Attempted Earned Ratio 



2. 17 
2. 17 

1. 95 

2. 24" 



1,209 



17, 187 



36, 661. 



2. 13 



Men 

Women 

Total 



Number of 
Students 



1,941 
1, 142 
3, 083 



Other Housing 

Credit Hours 
Attempted 



Grade Points 
Earned 



23, 103 
12, 399 
35, 502 



52, 441. 
32, 547. 

84, 988. 



Grade -Point 
Ratio 



2. 27 
2. 62 

2. 39 



By Residence Hall 



Burford Hall 

House Number of Credit Hours Grade Points Grade -Point 
Students Taken Earned Ratio 

2 52 743 1846.0 2.48 

3 58 902 2302.0 2.55 

4 60 854 1975.0 2.31 

5 59 867 1937.0 2.23 

6 57 828 2057.0 2.48 

Total 286: 4194 10117.0 2.41 



By Residence Hall 



Erickson Hall 

House Number pf Credit Hours Grade Points Grade -Point 
Students Taken Earned Ratio 

2 57 861 2048.5 2.38 

3 56 832 2113.5 2.54 

4 54 766 1879.5 2.45 

5 52 757 1827.0 2.41 

6 __58 830 2135. 5 2. 57 

Total 277 4046 10004.0 2.47 



By Residence Hall 



Gillum Hall 

Hours Number of Credit Hours Grade Points Grade -Point 

Students Taken Earned Ratio 

2 39 561 1149.5 2.05 

3 39 553 1248.0 2.26 

4 38 549 1157.5 2.11 

5 35 492 968.0 1.96 

6 38 533 1128.5 2.12 

7 40 550 1131.5 2.06 

8 36 521 1184.0 2.27 

9 __3<? 579 1444. 5 2.49 

Total 304 4338 9411.5. 2.17 



By Residence Hall 



Hulman Center 

House Number of Credit Hours Grade Points Grade -Point 
Students Taken Earned Ratio 

3 33 442 956.0 2.16 

4 53 711 1514.0 2.13 

5 59 778 1737.5 2.23 

6 57 730 1555.0 2.13 

7 56 805 1837.5 2.28 

8 _5L 697 1449. 2. 08 

Total 309 4163 9049.0 2.17 
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By Residence Hall 
Parsons Hall 



House Number of Credit Hours Grade Points Grade-Point 



Students 



Total 298 



Taken Earned Ratio 



1 57 843 

2 



3 

4 36 530 

5 57 832 

6 48 658 



1786. 2. 12 



44 643 1312.0 2.04 

56 820 1544.0 1.88 



1061.0 2.00 
1471,5 1.77 
1277.5 1-94 



4326 8452.0 1.95 
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By Residence Hall 



Pickerl Hall 

House Number of Credit Hours Grade Points Grade -Point 
Students Taken Earned Ratio 

2 56 827 2208.0 2.67 

3 57 906 2111.0 2.33 

4 58 846 2070.5 2.45 

5 59 865 2071.0 2.39 

6 _60 890 2209. 2.48 

Total 290 4334 10669.5 2.46 
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By Residence Hall 



Reeve Hall 

House Number of Credit Hours Grade Points Grade-Point 
Students Taken Earned Ratio 

1 19 270 610.0 2.26 

2 87 1235 2853:5 2.31 

3 114 1707 4172.5 2.44 

4 106 1512 3756. 5 2.48 

Total 326 4724 11392.5 2.41 



4 o & 



By Residence Hall 



Sandison Hall 

House Number of Credit Hours Grade Points Grade -Point 
Students Taken Earned Ratio 

1 13 182 301.0 1.65 

2 36 545 1324.5 2.43 

3 35 521 1147.5 2.20 

4 37 527 1230.0 2.33 

5 34 473 1073.5 2.27 

6 37 546 1362.5 2.50 
7, 36 542 1207.5 2.23 

8 34 492 1002.5 2.03 

9 36 532 1099. 5 2. 07 

Total 298 4360. 9748. 5 2. 24 
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TEXT 




INTRODUCTION 



Our purpose in presenting this paper is to illustrate a technique, developed 
at AVCO Corporation's Huntsville Engineering Office in conjunction with IBM 
Corporation's Huntsville Branch Office, Systems Engineering Staff, for 
processing AUTOSPOT and AUTOMAP programs on the 1620 equipped with 
an on line 1311 Disc Drive, 

This is an automatic system in that it provides a means for producing a 
numerical control tape deck or paper tape from a deck of source statements 
without going through the multi-pass card system. 

This technique is not reputed to be a panacea, nor will it be advantageous 
for all users. 

It is, however, felt to be a significant step in improving the existing means 
of processing numerical control programs on the 1620, 

During the next few minutes we will present to you information regarding: 

(1) Rationale which led us to choose this particular method of attack. 

(2) The methods utilized by and the operation of the system. 

(3) Advantages and limitations of the system. 

(4) Savings in time and money which might reasonably be expected, and 

(5) Application to Fortran and SPS programs. 



I - 1 

414 



Following the discussion of these topics, Mr. Ernie Moore of IBM, HuntsviUe, 
will discuss some of the specific modifications which must be made to the 
machine language deck in order that this system may be utilized. 

I wish to invite those of you who are not specifically interested in numerical 
control to visualize the decks which we will be discussing as nothing more or less 
than machine language object decks compiled under FORTRAN with FORMAT or 
SPS for 1620 Mod I. 

In this way it may be possible for you to anticipate uses for this type of technique 
within your own organization. 

RATIONALE 

For the benefit of those who are unfamiliar with AUTOSPOT and AUTOMAP it 
would probably be worthwhile to take a brief glance at the nature of these two 
popular numerical control languages. 

AUTOSPOT is a language for positioning machine tools -- basically it is for 
point to point operations but has limited machining capability. An AUTOSPOT 
source program is ordinarily written in fixed format English language statements, 
which are then punched into cards. These source statements are then processed 
through a three phase General Processor called the AUTOSPOT processor. 

Following this General Processor will be a multi-phase post processor. 
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The post- processing required for the machine tools which we utilize 

at AVCO, consist of three to six additional phases. One of these phases 

is a two pass phase; thus a total of ten passes through the computer is 

required. All but one pass produces an intermediate output deck wiich must 

be subsequently loaded with the appropriate processor seemingly "ad infinitum". 

AUTOMAP is a contouring language which requires an English language source 
deck and two phases of general processing. In addition, three phases of post- 
processing are required for our particular machine tools. Again each phase 
produces an intermediate output deck which must be subsequently reloaded with 
the appropriate processor. 

The final phase of each of these produces a punch paper tape or a card deck 
which contains the input to the special purpose computer attached to the machine 
tool. 

This special purpose computer actually controls the machine tool. 

Upon exposure to this system, one immediately sees the need for streamlining 
the operation. 

We chose to accomplish this streamlining by adapting AUTOSPOT and AUTOMAP 
to the 1620 with an on line 1311 disc. 
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This approach was chosen essentially because of the versatility offered by this 
system in other applications such as scientific/engineering computation under 
MONITOR /FORTRAN II-D as well as the numerical control application. 

The choice of the particular technique we eventually utilized was the result 
of considerable thought as to what constituted the best approach. It was also 
the result of experience gained traveling a number of blind alleys. 

The initial thinking indicated that the best approach would be to recompile each 
phase of AUTOSPOT and AUTOMAP under MONITOR with the read-write 
statements changed where necessary. This would, presumably, have involved 
updating the SPS source decks for all phases of the general and post processors 
applicable to our work; plus compiling them as if they were utility programs. 
It seemed at the time that this would be a simple straightforward approach 
which would yield results with a minimum of re** programming. 

However, upon closer examination of this idea, a number of problems became 
evident. 

The most serious of these involved the floating point subroutines which were 
required. AUTOSPOT and AUTOMAP originally were written and compiled 
to utilize the "excess fifty floating point" system. On the other hand, we came 
to learn that our SPS II-D (the SPS for MONITOR I) utilizes exponential numbers. 

This problem in itself seemed to be insurmountable from a practical standpoint. 
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One other problem which we came to consider practically insurmountable is 
the fact that almost all phases of our general and post-processors fill 20, 000 
positions of core practically to the hilt. Thus no space would exist for the 
"supervisor" program which MONITOR requii 
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These two problems alone seemed sufficient to eliminate the MONITOR approach 

as being simple. 

One might reason that a 40 or 60K machine would eliminate the latter problem; 
and rightly so. 

Unfortunately, we have a 20K machine - moreover we desired, if possible, 
to keep AUTOSPOT and AUTOMAP in such a form that only the basic 1620 
plus 1 31 1 would be required. 

There were other considerations in addition to these which led us to abandon the 
MONITOR approach. For example, our experience with MONITOR I led us to 
believe that, even if we were able to "Monitorize" AUTOSPOT and AUTOMAP, the 
execution speed would be agonizingly slow due to the disc relocatable subroutines, 

etc 

Thus after consultation with our systems engineer, we decided to investigate 
what we then called, a "quick and dirty" approach. This approach, we visualized, 
would incorporate machine language modifications to the existing compressed 
object decks of the various phases which we desired to implement. It was planned 
that these changes would link the various phases together in such a way that 
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each would call the next from its respective place in disc storage. In addition 

it was planned that the intermediate output would be loaded in an area reserved on 

the disc rather than being punched in cards. 



It appeared, at the time, that this type of approach would result in serious 
problems in coding since all changes would necessarily be in machine language 
and since spare core storage locations were at a premium in most cases. 

Still the benefits which were expected seemed to warrant proceeding along this 
particular avenue. 

Some of the anticipated benefits were: 

( 1) Relatively high speed operation 

(2) Simple operation 

(3) The AUTOSPOT and AUTOMAP decks would remain in essentially the 
same form as "non disc" decks so that Users Group library patches 
could be utilized. 

After a number of troublesome but not really serious problems, our expectations 
began to be realized first with AUTOMAP then with the post-processor 
used for the Bendix controlled Milwaukee Matic Model II -- finally with 
AUTOSPOT and the post-processor for the G. E. controlled Milwaukee Matic 
Model II. 

True to its name the system was quick but it was not at all "dirty" 
it was quite smooth and clean. 
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THE SYSTEM 

In essence the system as it applies to AUTOSPOT operates in the following 



manner. 



(Slide #5A ) 

Phase I of the AUTOSPOT general processor resides in a specified position 
on the disc, its READ statements remaining unchanged and its PUNCH commands 
changed to load each output card image in an area on the disc reserved for 
intermediate output. This is accomplished, in general, by changing all the 
PUNCH commands to BRANCH to a routine which: 

(1) Writes the card image on the disc 

(2) Increments the sector address 

(3) Tests for end of job 

(4) Returns to main line program. 

Thus, in order to process an AUTOSPOT program, one simply loads a 
control card which calls Phase I of the general processor from disc storage 
to memory Phase I then reads and processes the source deck in the usual 
manner with the exception of punch output. 

When the program encounters a FINI card (which signifies the end of job) the 
program branches to a routine which calls Phase II of the general processor 
from its disc location. 

The READ commands of Phase II are modified to BRANCH the program into 



1-7 



c 



AUTOSPOT 
PHASE I 



Q 2 

AUTOSPOT 
SOURCE 
DECK 




CPU 


— 




o 



AUTOSPOT 
PHASE I OUTPUT 
(INTERMEDIATE 
OUTPUT AREA) 




a routine which reads a card image from the disc, increments the sector 
address and returns to the main line program. In this way the intermediate 
output from Phase I is read: processing proceeds in the usual manner and the 
resulting output is written on the disc in a fashion similar to Phase I. 

When the processing of Phase II is complete and a FINI code is encountered 
the program tests one of the console sense switches to determine if the source 
program requires the use of AUTOSPOT Phase III. Phase III is not required 
for programs which have no tool offset or arc and slope that is for machining 
programs. If the sense switch is on (indicating contouring) the program 
branches to a routine which loads core with Phase III of the general processor. 
If, however, the switch is off (indicating no contouring) the program tests 
another of the sense switches to determine if the program requires post 
processing. If post processing is required the appropriate post processing 
phase is loaded into core from its location on the disc. If post processing is 
not required then a punch tape or a card deck containing the output of Phase II 
is produced. 

If Phase III were required, it would be loaded into core as I mentioned 
previously. Processing would proceed in the usual manner with the image of 
each resulting card being loaded in the disc interms diate output area. 

Upon completion of Phase III, indicated by a FINI code, one of the console 

sense switches is interrogated to determine if post processing is required; 

if not, a card deck containing Phase III output is produced. However, if a post 
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processor is required then the appropriate phase will be called from the disc 
into core. 

The post processors applicable to our particular machine tools have been 
adapted to run in a manner very similar to the one just outlined. 

These post processors are: 

( 1) Computer Routines for The Milwaukee Matic Solid State Controlled 
Machining Center , User Group Library, No. 10.4.004, and 

(2) MATIC , a proprietary pseudo- language developed by Kearney and 
Trecker Corporation for its Bendix Dynapath controlled "Milwaukee 
Matic s" 

In general this is now the system operates. Let us now take a brief glance 
at the advantages and limitations of it. 

ADVANTAGES AND LIMITATIONS 

The principal advantages of this system as we see them are as follows: 

(Slide #1A) 

(l) Simplicity of operation: One control card calls Phase I of AUTOMAP 

from disc into core -- the source deck is processed and the intermediate 
deck is loaded on the disc. This output will then be read from the disc 
after Phase II has been transferred from disc to core. 
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(2) Core Clearing: Manual clearing of core to zeros or flag zeros is not 
required. 

(3) Card Handling: The handling of intermediate decks is eliminated thus 
reducing operator time and the hazard of dropped or mixed up decks. 

(4) Speed of Operation: The reading of lengthy processor decks with the 
1622 is eliminated, saving computer hours and operator hours. The 
elimination of intermediate output decks speeds up the operation from 
both operator time and machine time standpoints. 

(5) Card Savings: If the company utilizing this technique does a large 
volume of numerical control program processing, the savings from 
decreased card consumption may be a significant percentage of the 1311 
rental cost. 

(6) Disc READ/WRITE checks may be written into the program with as many 
re-reads or re = writes as desired. 

At the present time we visualize that there may be two limitations or problems 
with this system. 

(l) Program Modifications: Program modifications which require additional 
core will not be possible in some phases due to the fact that the 
additional instructions required to implement this system cause core to 
be completely filled. In addition, program modifications which are 
desired, either as a result of program modifications published by the 
Users Group Library or by individual preference, must be incorporated 
into the deck and loaded on the disc, much in the same manner as 
MONITOR I patches. 
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(2) Debugging Source Programs: Another problem exists if the individual 
users desire an intermediate deck for debugging - let's say to find the 
location of a failure relative to some known point in the source program. 
It is often desirable to have this output to determine the last successful 
command, thereby locating the bug. At the present time, we utilize 
a debugging program in the form of a series of instructions, which will 
dump, from the disc, images of a number of cards before and after the 
location of the failure. 

The seriousness of this limitation depends primarily on the method of 
processing utilized within the users organization. It is doubtful if it 
would be a serious limitation in any case. 

Ill SAVINGS 

Having touched on the advantages of the system in general, let us return to the 
specific area of cost and time savings. 

One might reasonably expect savings in three areas: 

(1) Savings in elapsed time from receipt, by the operator, of a source deck 
to production of final tape deck. This time saving is realized by the 
elimination of card handling between phases, core clearing, and punch 
clearing operations. 

Our experience indicates that, normally, two hours actual processing 
time requires approximately three hours elapsed time. An actual test 
run with an average AUTOMAP program with three phases of post 
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processing required 60 minutes utilizing the card system exclusively 
but was reduced to 37.5 minutes utilizing this system. 

A typical AUTOSPOT program with 6 phases of post processing ran 
70. 5 minutes utilizing the card system exclusively and 35. 2 minutes 
utilizing the 1311. 

The elapsed time comparison for various AUTOSPOT and AUTOMAP 
plus post processor configurations are shown graphically on the next 
slide. 

(Slide #2A) 

The second area of saving is in computer meter time. This saving is 
realized, primarily, as a result of the elimination of the 1622 as an 
input/output device, in all cases except the reading of source deck 
and punching of tape deck. (We do not utilize the on -line tape punch). 

In a test utilizing what we consider an average AUTOMAP source deck 
plus 3 phases of post processing the meter time utilizing card I/O was 
46. 8 minutes and utilizing the 1311 the time was 35. 7 minutes. 

A similar test with an average AUTOSPOT program with six phases 
of post processing indicated the running time without 1311 as 56. 8 
minutes and with this system as 38. 8 minutes. 
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A bar chart showing the comparison between the two systems for 
various configurations of processor plus post processor is shown on 
the next slide. 
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The third area of saving is in decreased card consumption. Obviously, 



this saving is realized as a result of the elimination of punched out 
intermediate decks. 

The average AUTOMAP test deck which was utilized to determine the 
time comparisons previously mentioned, utilized 1600 cards with only 
card I/O and 450 with the help of the 1311. 

A similar test with AUTOSPOT utilized 1850 cards with card I/O and 
580 cards with the 1311 as intermediate I/O medium. 

The next slide illustrates the card consumption for various configurations 
of processor plus post processor. 



VI. OTHER APPLICATIONS 

The technique which we have been discussing in general and which will be 
covered in greater detail later on, is by no means limited to numerical control 
program processing. 
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CARD CONSUMPTION 



We have implemented it for this particular use because a considerable bulk of 
our processing is in the numerical control area. 

The same technique has been utilized successfully for processing machine 
language programs compiled under "FORTRAN with FORMAT" and SPS and even 
for linking two or more such programs together. 

This application is somewhat troublesome from a programming standpoint but 
we feel that there exist areas wherein it would be useful. F or example, 
companies which have already compiled programs under the old FORTRAN or 
SPS systems might find it inconvenient or impractical to re- write and re -compile 
these programs under MONITOR. Thus they might wish to utilize a method 
similar to this to process these programs, particularly if they are of the daily 
run type. 

The point is this: a method by which one might bypass MONITOR and still 

take advantage of the disc does exist, if the time and trouble for utilizing it will 

yield sufficient savings in the particular case in question. 

We will be happy to answer questions regarding this technique at the end of our 
formal discussion and to discuss the details of it during the workshop which will 
be held this afternoon. 

At this time, I would like to present Mr. Ernie Moore, Systems Engineer from 
Huntsville's IBM Branch Office. Mr. Moore has done a considerable amount of 
programming in this effort and will discuss the system in greater detail. 
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For those of you who already have a 1311 Disk System, I hope 
to show you a procedure for placing a machine language program on 
the disk. For those who have not yet obtained a disk system, I hope 
to show you how the Monitor System can be supplemented in the case 
of established programs which have heavy usage and are completely 
contained in one core image. To date, we have modified about fifteen 
programs to operate from the disk. Some of these programs also 
write data on the disk and then call the next program or phase which 
then uses this data written on the disk to continue the processing, as 
in the case of postprocessor s. We have modified both FORTRAN and 
SPS Programs. The procedure which I am going to explain is the 
result of our experience on these programs. 

Our approach was intentionally the simplest one possible. It 
was to load the established program into core and then to transfer 
the complete core image, with minor modifications, onto the disk. 
When we wish to operate the program, we simply call the complete 
core image back into core using a single call card containing only 
four instructions. By this step, we have eliminated the handling of 
the program decks and the time to read cards into core. We are 
essentially using the disk as a storage medium for our card decks. 

As we became more familiar with the disk, the next logical step 
was to have the first program in a series of programs automatically 
call in the second program when the first program was finished. 
This series of each calling the next could go on indefinitely -«= the 
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only limit being the limit of 100 core images on one disk pac. Our 
largest string to date is ten programs. 

While we were still feeling pretty good about our first two 
achievements, we tackled the final step — that of modifying the 
first program to place its intermediate output on the disk instead 
of punching cards, then modifying the second program in the string 
to read this intermediate data from the disk as input. The same 
program in turn was to write its output on the disk for the third 
program and so forth, on to completion. Here we have almost 
completely eliminated cards and their associated problems, and we 
have also eliminated the operator, once he has called the program 
in and loaded the initial data. 

Slide 1 illustrates the sequence which we have just gone through. 
These are the steps you could take in modifying your program. You 
will note that before modifying the program, sample output is 
obtained for use later as a check to see that our modifications have 
not changed the logic of the original program. In the first decision 
block in Slide 1, we ask, "Will it be necessary for this program to 
call the next program in a string?" If the answer is "yes", then the 
program must be modified by adding a three or four instruction 
routine at the end. The second decision block indicates that the 
program must also be modified if it will use the disk instead of the 
cards for data storage. After the necessary changes have been made, 
the program is loaded into core using its own load program. The 
complete core image is then transferred to the disk and is available 
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for call at any time it is needed. It is suggested that the output of the 
test run be compared with the original test data to point out any 
erroneous changes which have altered the logic of the program. 

We will now go back and examine the individual blocks of 
this flowchart (Slide 1) in more detail. If it were decided that our 
program, when finished, should call in a second phase or program we 
could simply replace the final halt with the two instructions needed 
to call the next program from the disk. In Slide 2 we have replaced 
the halt at 10588 with an Op Code 34 followed by an Op Code 36. 
These will transfer the next program from the disk to core. This will 
work fine if the first instruction of the new program is located at 
10612. This is because the instruction at 10612 will be the next 
instruction executed. From this, we can conclude that the Op Code 
34 and 36 instructions to call the second program must be located 
just in front of the address at which the first instruction in the second 
program will be loaded. This is illustrated in Slide 2 where the Op 
Code 26 at location 10612 would be the first instruction executed in 
the second program. 

To further illustrate this point, we will take the case of an SPS 
Program which has a halt at location followed by a branch, in Loc 12, 
to the origin or beginning of the program. Here we have replaced the 
halt at 10588 in Slide 3 with a 49, or branch, to 19976. At location 
19976, we have placed our Op Code 34 and 36. The next instruction 
executed after the Op Code 36 will be the instruction brought out from 
location which is normally the first instruction in an SPS Program. 
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MODIFICATION TO CALL NEXT SPS PROGRAM 
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Now that the new program is in core, this is also the first 
instruction of our second phase or second program. This takes 
advantage of the wrap around feature which allows us to execute the 
instruction at location 0, after the instruction located at 19988 is 
executed. This also takes advantage of the fact that very seldom are 
instructions located in the upper end of core in the 19900 area. This 
allows us to use this area. 

Let us now examine the block labeled "Modify I/O Instructions 
for Disk". Slide 4 is an enlargement of this block. The first 
decision block asks, '!Aret here 300 to 500 core locations available?" 
This figure, 300 = 500 is rather broad and varies depending on the 
number of read or write statements in the program which are to be 
modified. If we have this number of core positions available, then 
we go to the next decision block which asks, "Does the program read 
into or write from an area beginning with an odd address? " If this 
answer is "yes", then our modifications will require an additional 
200 locations. These additional 200 locations are used to program 
the transfer of data so that the disk works out of or into an area 
beginning with an even address. If this is not done, the first or last 
digit of the data will be lost in a disk transfer. The transfer of data 
to core is made prior to a write disk or following a read disk 
instruction using a transmit record so that record marks and 
special characters would also be transferred; thus not altering the 
data in any respect. Once we find that sufficient core storage is 
available, we proceed to the writing of the modification program. 
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If, in the first block in Slide 4, we had found that sufficient 
core was not available, we would have gone out the no side to the 
next decision box which asks, "Are there at least 100 locations 
available? " These 100 locations will be necessary for a control 
program which will control a section of core storage calling either 
the I/O routine or the main program whenever either is needed. In 
other words, a portion of core will be shared by both the I/O program and 
the program which normally resides in this area. This way we can actually 
use a program which fills practically all of core and still have available 
the additional programming necessary to take care of reading and 
writing on the disk. There are very few cases where 100 locations 
cannot be found. In many cases, an output error message may be 
modified or abbreviated. The locations acquired in this manner may be 
used for control purposes. The locations from - 80 in the product 
area may sometimes be used. By dumping the program out on the 
typewriter, there may be other areas which will become evident. In 
this way, sufficient area may be found to contain the instructions 
necessary to call the alternate program and control whichever program 
is in core at the present time. If we reach a situation where fewer 
than 100 cores are available, and if the logic of the program will allow, 
the best solution would be to have each of the two overlayed programs, 
at its completion, call its counterpart in on top of the existing program. 
In this way, you are alternating back and forth and each program, when 
executed, will automatically call the next. 
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The next decision block asks, "Are branch and transmit 
instructions used to go from the original program to its "read a card" or 
"punch a card" routine? " If the answer to this is "yes" we will not be 
able to use branch and transmit type instructions to branch our disk 
routines. And, in the case of this, we go out the left side of this block 
to the next block which asks, "Is there more than one place where the 
original program branches to its read or write routines?" The point 
here is: If branch and transmit instructions had been used by the original 
program to go into its routine which, after modification, we will be 
branching from, we may not use a branch and transmit again prior to 
reaching the branch back. Thus, in cases where the branch and transmit 
instruction is used by the original program to branch to its I/O routine, 
we must use a 49 type branch to branch to disk routine. But, if the 
original program had not used a branch and transmit instruction, we 
may, in turn, use branch and transmit instructions to get to and from 
the disk routine. 

The next block says, "Does the program recognize the last card 
of data? " With card operation, when the last data card has been read, 
the card reader will stop, but the disk will continue to read sectors 
beyond the last data unless provisions are made to sense this last data. 
If the answer to this decision block is "no", then some provision must 
be made so that the program will not read the disk completely never 
knowing when it has finished the last card. This may be accomplished 
in two ways: 
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1. A count can be maintained of the number of cards stored 
on the disk when the data was originally written on the 
disk. This count can be checked as the data is read back 
for the last position. 

2. Or, the position following the last data segment on the 
disk could be loaded with a special indicator which the 
next, or following, program will recognize as the last 
data area. 

In the case of AUTOSPOT AND AUTOMAP, the program already made 
provisions for the last card by placing a fini card at the end of the data 
as it is written. This fini card contained a 99 and was recognized by 
the following program as terminating the data. 

From here, we go to the next decision block which checks for 
input in alphanumeric form. Again, in this block we run into a uniqueness 
of the disk which in some cases would be an advantage,but which we must 
watch for. When we read the disk or write disk in alpha, flags are 
transferred with the data. This is contrary to reading or writing on 
cards. Thus, we must make provisions to remove the flags left in the 
data. The programs with which we are working assumed that there 
would be no flags in the input data and went on to set flags in the input 
area which were later used for data transfer. The extra flags left by the 
disk can cause serious errors if allowed to remain. To correct this, 
we used a clear flag instruction to clear all flags from the 80 positions 
of data prior to writing on the disk. In this way, no flags were read 
back from the disk into the input area. 
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Coming down through the flowchart (Slide 1), we have now reached 
the point which says load program into core in normal manner. The 
modifications which we have described up until now may be inserted into 
the original program deck in two ways: 

1. We can modify the original deck prior to loading the 
program into core by repunching the necessary cards. 

2. We can load the program in with no modifications and 
then write a "trailer program" which will load the 
modifications on top of the normal program. 

Either method is satisfactory. 

Now it becomes necessary to transfer the complete modified 
program onto the disk for recall at a later time. Again, there are a 
number of ways in which this can be done. 

1. This can be done by placing the two necessary disk 
instructions into the input area. After we had loaded the 
program with the modifications, we would branch to these 
instructions which in turn would load the program on the 
disk. When the program is read back from the disk 
these two instructions (34 and 38) would still be in the 
input area but the assumption is that the first data read 
into this area would be read over these instructions and 
they would have no affect on the program. 

2. If we had used the trailer program to load in our 
modifications after the initial program had been already 
loaded into core, we would have included these two 
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instructions. Again, either way is satisfactory. The main 
point is to get the program on the disk with the modifications. 
Now all that remains is to have the program called in from the 
disk. Here, we may use the same philosophy which we had used when 
we had one program calling the following program. The main thing to 
remember here is that the Op Code 36 instruction must be located just 
in front of the first instruction to be executed in our next program. In 
SPS programs, we used the call routine illustrated on Slide 5. We have here 
an Op Code 41 followed by an Op Code 34, 16 and 49. The program is read 
into location 0. The Op Code 41 will do nothing. We go to the 34 which 
will seek the disk address which we specified in the control word 
located at 44. The 16 transmits immediately the 36 to location and 1. 
We then branch back to and execute this instruction which will now be 
a 36 or "read a disk". The new program will be read in and the next 
instruction executed, after the instruction located at location 0, will be 
the instruction located at 12 which, in the case of SPS program, will 
be a branch to the origin of the program. 

In the case of non-SPS programs where the branch is not located 
in position 12, we may use the program similar to the one in the second 
part of Slide 5. Again, this program is read into location 0: the first 
instruction is a 34, "seek the disk". The second instruction, an Op 
Code 26, will transfer the Op Code 36, instruction, located at 0046, 
to a location just in front of where the next program will start after it 
is read in. The third instruction Op Code 49 will branch to and execute 
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TWO CALL PROGRAMS TO CALL AND 
START PROGRAM ON DISK 



CORE 


OP 


[ CONTENTS OF 


LOC. 


CODE 


J P&Q ADDRESS 


00000 


41 


00044 00702 


00012 


34 


| 00044 00701 


00024 


16 


| 00001 00036 


00036 


49 


| 00000 


00044 




| 105000 200 00000 






| (DISK CONTROL WORD) 


00000 


34 


1 00032 00701 


00012 


26 


| START - 1 00057 


00024 


49 


1 START -12 


00032 




j 105000 200 00000 






j (DISK CONTROL WORD) 


00046 


36 


| 00032 00702 


00058 







the Op Code 36 instruction. The Op Code 36 instruction will be executed 
reading in the new program and the following instruction which will be 
the first instruction in the new program will be the next one executed. 

The final block on Slide 1 points out the advisability of checking 
the finished program by comparing its output with the output from the 
program prior to any modifications. In this way, we can be relatively 
sure we've not altered the main philosophy of the program in any way. 

I have included in the appendix a typical set of modifications for 
your reference. I might add one precaution =- DO NOT let any of your 
modified programs get on the Monitor Disk. Probably Monitor would 
have to be reloaded and your program most likely would not run any way. 

In concluding, let me say that I hope I have brought to your 
attention an area of disk operation which has received very little 
publicity in the past. You must realize that there are very definite 
limitations to the use of the disk with programs modified in this manner. 
The program must be in a complete core image and if programs are 
linked together with each calling the next, the sequence is restricted 
and there can be little deviation without rewriting the modifications. 
But, for programs which will run in the same sequence, or for a 
single program that is run very often, a considerable savings can 
result. The resulting program is fast, economical and easy to 
operate. 

I realize we have covered some rather technical material here 
in a rather short time. Therefore, I invite your questions either now or 
this afternoon during our workshop when we hope to sit down with you 
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and help you modify your post-processors or any other programs which 
you have to modify. Please bring a copy of your program listing and 
find out the last location that your program uses in core. Anytime in 
the near future that I may be of assistance, please feel free to contact 
me through the Hunts ville Branch Office. I hope to see many of you in 
our workshop this afternoon. 

Now, are there any questions? 
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II 

Appendix 1 

OP Code Reference Table 
and 

Disc Word Explanation 



CODE 



MNEMONIC 



TYPE OPERATION 



1 1 AM Add Immediate 

12 SM Subtract Immediate 

1 3 MM Multiply Immediate 

14 CM Compare Immediate 

15 TDM Transmit Digit Immediate 

16 TFM Transmit Field Immediate 

17 BTM Branch and Transmit Immediate 

2 1 A Add 

22 S Subtract 

23 M Multiply 

24 C Compare 

25 TD Transmit Digit 

26 TF Transmit Field 

27 BT Branch and Transmit 

31 TR Transmit Record 

32 SF Set Flag 

33 CF Clear Flag 

34 SK Seek (Q = x07xl) 

34 K Control 

35 DN Dump Numerically 
*36 RN Read Numerically 

37 RA Read Alphamerically 

* 38 WN Write Numerically 

39 WA Write Alphamerically 
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CODE MNEMONIC 



41 


NOP 


42 


BB 


43 


BD 


A A 

44 




45 


BNR 


46 


BI 


47 


BNI 


48 


H 


49 


B 


55 


BNG 



TYPE OPERATION 

No Operation 

Branch Back 

Branch Digit 

Branch No Flag 

Branch No Record Mark 

Branch Indicator 

Branch No Indicator 

Halt 

Branch 

Branch No Group Mark 



♦ Read- Write disk modifiers on next page. 
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DISK CONTROL FIELD 



In order to read from or write on the disk there are four things 
that must be known. These are; 

(1) The disk drive number if more than one drive is attached to 
the system. 

(2) The five position disk sector address. 

(3) The number of sectors to be written or read. 

(4) The starting core location. 

The disk control field incorporates all four of the above items into 
a 14 position field. Thus: 



F 


F 1 ' F 2 » F 3' F 4» F 5 


S 6' S 7 » S 8 


M 9 » M lj2f> M ll» M 12» M 1 3 



The disk drive number is located in F 0, This drive code number 
varies with the number of drives attached to the system. For drive a 1 is 
used. For drive 1 a 3 is used. 

A sector on the disk is equal to 100 positions of core storage. There 
are 20, 000 sectors on each disk. These sectors are numbered sequentially 
from 00000 = 19999. The disk control field F 1 - F5 contains the sector address. 
This sector address determines where, on the disk, the write or read will start. 

Next is the number of sectors to be read or written. This is located in 
S6 = S8. The maximum number of sectors that can be read or written is 200 
and the minimum number is 001, The method for reading or writing fewer 
than 100 core locations is explained on the next page in "Read- Write Disk 
Modifiers". 
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M9 - Ml 3 contains the core location of the leftmost position of the 
data transferred to or from the disk. This core location must be an even 
number. 

In a seek, read, or write disk instruction the "P" address is the core 
location of the leftmost position of the disk control field. This leftmost 
position must be in an even location. 

The "Q" address of the disk instructions contains fl7 in Q8 and Q9 
and a modifier in Qll. The modifier in all seek instructions is a 1. The 
modifier in read-write instructions is explained in "Read-Write Disk 
Modifiers". 
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READ- WRITE DISK MODIFIERS 

All read- write disk instructions must have a "Q" address of "xj2f7xM" 
where M is the modifier. The modifier determines whether or not a group 
mark (:£) will have any effect on the data being transferred. 

The write disk instruction (38) with a modifier of will be 
determined after the first group mark encountered in core has been 
transferred to the disk. If no group mark is encountered the instruction 
will be terminated when the sector count has been decremented to 000. 

The read disk instruction (36) with a modifier of will be terminated 
after the first group mark encountered on the disk has been transferred into 
core or, if no group mark is encountered, when the sector has been 
decremented to 000. 

The read or write disk instruction with a modifier of 2 will treat the 
group mark as data and transfer data until the sector count has been decremented 
to 000. 
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Ill 



Appendix 2 



Machine Language Modifications 
to AUTOSPOT, AUTOMAP and 
Milwaukee Matic Post- Processor 



Note: 

The post-processor included here is Users 
Group Library number 10. 4. 004 - the 
"Computer Routines for the Milwaukee 
Matic Solid State Controlled Machining Center 



AUTOMAP PHASE I 



Statement number 1 is a five position field for the indirect address which shows 
from where to start the transmission of the record (statement #2). This is done 
because there are two write statements in the main program and each writes 
from a different location. As each of the two locations are odd numbered, they 
must be moved to an even location and, since the only locations left are 
00000 - $0080, these will be used. Statements #2 and #3 move the data from the 
odd numbered program output area into even numbered locations. Statement #4 
writes the output data on the disk. 

Statements 5, 6, and 7 check indicators; address check, wrong-length record/ 
read back check and write check respectively and, if either the address check or 
write check indicator is on, a branch to a "seek" instruction (statement #10) and 
then a branch (statement #11) to the write instruction is made. If the WLR/RBC 
indicator is on a branch to the next instruction is made simply to turn off the 
WLR/RBC console light. This is done due to the fact that this indicator is 
turned on each time a record with length unequal to 100 character multiples is 
read or written. 

Statement 8 adds one ( 1) to the sector address. Return to the main program is 
accomplished by a branch back (statement #9). 

Statement #12 is the write output data disk word. 

Statements 14 - 19 type the message "FINI" to indicate the end of phase 1 and 
to set up the calling of the next program. 

457 
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Statements 20 - 25 are changes to the main program. 20 and 22 clear the 
disk output area. 21 and 23 branch to the write disk routine and transmit the 
starting address into the area reserved by statement #1. Statement 25 insures 
a group mark after the 80th position to terminate the write disk instruction. 

Statements 26 - 31 dump the program on the disk in a core image. 

Statements 32 - 39 load the modifications, read the first program loader card 
and branch to continue loading the main program. 
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AUTO MAP PHI 
WRITE DISK 



STATEMENT NUMBER CORE LOCATION 



1 19802 

2 19808 
4 19820 

4 19832 

5 19844 

6 19856 

7 19868 

8 19880 

9 19892 

10 19894 

11 19906 

12 19914 

13 19926 

14 19928 

15 19940 

16 19952 

17 19964 

18 19976 

19 19988 



OP CODE P ADDRESS Q ADDRESS 



00 0000 

31 00000 19807 

26 00079 15390 

38 19914 00700 
46 19894 03600 
46 19868 03700 
46 19894 00700 
11 19919 00001 
42 

34 19914 00701 

49 19832 

10 00000 01000 
00 

10 42002 00000 

00 46495 ~ 5490^ 

39 19943 00100 

34 19928 00701 

48 00000 00000 

36 19928 00702 
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AUTO MAP PHI 
LOADEB AND CHANGES TO MAIN PBOGRAM 

STATEMENT NUMBER CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



20 

21 

22 

23 

24 

25 

26 
27 
28 
29 
30 
31 

32 
33 
34 
35 
36 
37 

38 
39 



02504 

02516 

11086 

11098 

11182 

16062 

15402 

15414 

15426 

15438 

15440 

15452 

00000 

00012 

00024 

00036 

00048 

00060 

00080 
00092 



31 
17 
31 
17 
49 

4* 

34 
16 
38 
48 
10 
00 

36 
36 
36 
36 
36 
49 

36 
49 



00000 

19808 

00000 

19808 

19952 



15440 
00004 
15440 

40002 



00080 
15402 
19802 
19882 
19962 
00080 

00000 
00000 



15982 
16063 
15982 
16065 
00000 



00701 
41000 
00702 

00000 



00500 
00500 
00500 
00500 
00500 



00500 
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PHASE I SPECIFICATION SECTION OF 



AUTOSPOT - MODIFICATIONS FOR DISK OPERATION 



LOAD PROGRAM 




00000 


36 


19522 


00500 


00012 


36 


19680 


00500 


00024 


36 


19840 


00500 


00036 


36 


19600 


00500 


00048 


36 


19760 


00500 


00060 


36 


19920 


00500 


00072 


49 


19626 


9 


19522 


31 


19648 


05819 


19534 


49 


19976 


05914 


19546 


10500020000000 



Save data for next phase 
Branch to "call next program" 
Disk control for this phase 



FALSE BRANCH & TRANSMIT 



19560 10520014904948 

19574 15 19969 00009 

19586 16 19821 f0701 

19598 49 19822 

19606 15 19969 00002 

19618 49 10660 



Disk control next phase 

Change 42 to a 49 

Transfer "write from" address 

Go to entry of program 

Change 49 to 42 

Return to program 



MODIFICATIONS TO PROGRAM 



19526 


36 


00000 


00500 


Reset location to 80 


19538 


26 


10654 


19785 


Modify unit instruction to branch to unit on disk 


19550 


26 


07755 


19759 




19562 


26 


09039 


19771 




19574 


26 


06368 


19778 


Modify end of program 


19586 


15 


05911 


0000^ 


Used to save data for machining section 


19698 


32 


07751 


00000 




19710 


32 


09035 


00000 




19722 


34 


19546 


00701 


Write program on disk 


19734 


38 


19546 


00702 




19746 


48 








19748 


27 


19822 


02753 




19760 


17 


19822 


10877 


Modified instructions to be inserted in program 


19772 


49 


19976 




19779 


49 


19574 






19786 


11 


19821 


00001 




19798 


11 


19816 


00001 


Increase address and transmit digit 


19810 


25 


19626 


00000 


19822 


14 


19816 


19785 




19834 


47 


19878 


01200 


Has all data been moved? 
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PHASE I SPECIFICATION SECTION OF 



AUTOSPOT - MODIFICATIONS FOR DISK OPERATION 



19846 


16 


19840 


19878 


Prepares tnis section ior imuiu pttoo 


19858 


16 


19816 


19626 




19870 


49 


19912 







19878 


16 


19840 


19786 


1 « 4- nn cs a oof-tin 

1st pass sei up 


19890 


49 


19810 







19898 


10000000119626 




19912 


38 


19898 


00702 


Write data on disk 


19924 


47 


19956 


03600 


Rewrite if we had an address check 


19936 


34 


19898 


00701 


19948 


49 


19912 





Increase sector address by one 


19956 


11 


19903 


00001 


19968 


42 


19606 





Return to Program 


19976 


34 


19560 


00701 




19988 


36 


19560 


00702 


Call next program 


00000 
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PHASE I MACHINE SECTION 



Same as Phase I specification with these exceptions 

19522 41 00000 00000 

19534 49 19976 04948 Branch to end of program 

19546 10520014919746 Disk address for this phase 

19560 10540020000000 Disk address for next phase 

19626 41 00000 00500 

19638 26 15929 19711 Modify write instruction 

19650 26 07595 19719 Modify end of program 

19662 32 15913 00000 

19674 34 19546 00701 

19686 38 19546 00702 Load this program on disk 

19698 48 

19700 49 19574 00000 

19712 49 19534 
19720 

19746 31 05819 19648 To transmit record left by specification section of Phase I 

19758 49 04984 
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MODIFICATION TO PHASE 2 OF AUTOSPOT TO 



RUN FROM DISK 



PATCH PROGRAM 

19466 26 13225 12033 

19478 11 13225 00010 

19490 26 13225 12055 

19502 11 13225 00004 

19514 49 11226 

19522 34 19560 00701 

19534 49 19976 06850 

19546 10540020000000 

19560 10535001001900 

19574 bbbbbbbbbb 



Program patch that was in the way moved to here 

End of this phase - seek for next phase 

Disk control word this section 
Disk control word next section 



MODIFICATION TO ORIGINAL PROGRAM 



19584 
19596 
19608 
19620 
19632 
19644 
19656 
19668 
19680 
19692 
19694 
19706 
19714 



36 00000 00500 Read in last cards of modification 



36 19680 

26 01762 

26 03219 

41 00000 

26 11780 

26 12024 

34 19546 

38 19546 
48 

46 19466 

49 197420 

49 19912 



00500 

19712 

19705 

00000 

19720 

19727 

00701 

00702 



Modify "read a card" instruction 
Modify error routine 
No Op 

Modify "write a card" instruction 
Modify end to call next program 

Write these modifications all on the disk 



01200 
4919522 



READ DISK DATA 
19728 10000000119600 
19742 36 19728 00702 



19754 
19766 
19778 
19786 



47 
34 
49 
11 



19786 
19728 
19742 
19733 



03600 
00701 


00001 



Read a card from disk & seek if necessary then go back 
and read again 



Increase sector address by one 



TRANSFER FIELD JUST READ TO EVEN LOCATION 

19798 25 13056 19600 Transfer data to area beginning with an even address 
19810 14 19809 19679 

19822 46 19866 01200 Check for last transfer 
19834 11 19809 00001 Increase disc location by one 

19846 U 19804 00001 

19858 49 19798 Repeat 
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MODIFICATIONS TO PHASE 2 of AUTOSPOT 
TO RUN FROM DISK 



TRANSFER FIELD JUST READ TO EVEN LOCATION 



19866 


16 


19809 


19600 


Housekeep because all data is transferred now 


19878 


16 


19804 


13056 




19890 


49 


01768 





Return to program 


WRITE DATA ON DISK 




19898 


10200000113136 




19912 


38 


19898 


00702 


Write data on disk 


19924 


47 


19956 


03600 


If address check - seek first then write data 


19936 


34 


19898 


00701 




19948 


49 


19912 







19956 


11 


19903 


00001 


Increase sector address by one 


19968 


49 


11786 





Return to program 


19976 


36 


19560 


00702 


End of this phase - read in control program for next phase 


19988 


49 


02318 


00000 




Load program to load in modifications into core 


00000 


36 


19466 


00500 


Load modifications into core and branch to the first modificatio(> 


00012 


36 


19546 


00500 




00024 


36 


19626 


00500 




00036 


36 


19760 


00500 




00048 


36 


19840 


00500 




00060 


36 


19920 


00500 




00072 


49 


19584 
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MODIFICATIONS TO AUTOSPOT PHASE 3 FOR DISK OPERATION 



READ 


DATA FROM THE 


18312 


36 


01984 


00702 


18324 


47 


18356 


03600 


18336 


34 


01984 


00701 


18348 


49 


18312 





18356 


11 


01989 


00001 


18368 


25 


13411 


18626 


iooou 


14 


18379 


18705 


18392 


46 


18436 


01200 


18404 


11 


18374 


00001 


18416 


11 


18379 


00001 


18428 


49 


18368 





18436 


16 


18374 


13411 


18448 


16 


18379 


18626 


18460 


49 


13334 


00000 


CALL OVERLAYED ROL 


18472 


16 


19964 


T0292 



Read data from disk 

If not correct cylinder seek and go back to read 
Add one to sector address 

Transfer data to data read in area which start with an odd 
address. Use transmit digit 80 times. 



Housekeep transfer data routine and return to program 



1NE "FLOAT" & CONTROL WORDS 

If program branches to FSIN or FCOS set at to call FLOAT and 

go to 18786 



18484 49 18786 00000 

18496 16 19964 10376 

18508 49 18786 00000 

18520 00000000000000 

18534 41 00000 01700 

18546 10560020000000 

18560 1053500100190000 



Orgin of program 01700 
Disk address this program 
Disk address of next program 



ROUTINE TO MODIFY ORIGINAL PHASE 3 PROGRAM BEFORE IT IS PLACED ON DISK 

USED FOR A TRANSFER OF DATA AREA 
Read in a card and branch to it 

Modify write data instruction 
Modify read data instruction 
Read in another card 
Read Modification into 13620 

Modification to original program to call float 

Read modifications into 13272 
Read original information into 00000 
Write complete program disk 



ALSO 


18626 to 18705 ARE 


18576 


36 


00000 


00500 


18588 


49 


00000 





18596 


26 


13801 


00063 


18608 


26 


13329 


00071 


18620 


36 


13298 


00500 


18632 


36 


13620 


00500 


18644 


16 


10322 


19966 


18656 


16 


10406 


02590 


18668 


16 


12882 


02570 


18680 


36 


13272 


00500 


18692 


36 


00000 


00500 


18704 


34 


18546 


00701 
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MODIFICATIONS TO AUTOSPOT PHASE 3 FOB DISK OPERATION 



o 



ROUTINE TO MODIFY ORIGINAL PHASE 3 PROGRAM BEFORE IT IS PLACED ON DISK 
ALSO 18626 TO 18705 ARE USED FOR A TRANSFER OF DATA AREA 
18716 38 18546 00702 

18728 34 13280 00701 Write "read/write data on disk" routine on disk 
18740 38 13280 00702 
18752 48 20 - f s 



IF PROGRAM NEEDS FATN CALL IN FLOAT ROUTINE 
18774 16 19964 12852 

18786 34 00000 00701 Seek float and go to 19946 which will read it in 
18798 49 19946 



WRITE OUTPUT DATA ON DISK FOR NEXT PROGRAM 



18806 


16 


18841 


13847 


Housekeep transmit digit 


18818 


16 


18836 


18626 




18830 


25 


18626 


13847 


Transmit digit 80 times 


18842 


1.4 


18836 


18705 


Have we transmitted digit 80 times? 


18854 


46 


18912 


01200 




18862 


11 


18836 


00001 


Increase count or transmit digit and write data 


18878 


11 


18841 


00001 




18890 


49 


18830 







18902 


00000000000000 




18912 


38 


19986 


00702 


Write data on disk 


18924 


47 


18956 


03600 




18936 


34 


19986 


00701 


If at wrong cylinder seek and rewrite 


18948 


49 


18912 







18956 


11 


19991 


00001 


Increase sector count by one and return to program 


18968 


49 


13806 







18980 











INSTRUCTION FOR LOCATION TO 80 

00000 49 01700 000 Branch to origin of program 

44 18312 18966 

36 13280 00702 If the read/write disk routine is in core go to R/W if not call it in 

49 18312 

44 18806 18966 

36 13280 00702 

49 18806 0#>042M3 



00010 
00022 
00034 
00042 
00054 
00066 
00080 



INSTRUCTION FOR LOCATION 02528 TO 02610 
02528 39 02559 00100 

02540 26 17043 16793 Error message - no tooi card: 
02552 49 02634 
02560 55 56634 30^ 
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"NO TC" 



o 
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MODIFICATIONS TO AUTOSPOT PHASE 3 FOB DISK OPEBATION 

S t S ^ Check to see is "neat" routine Is in core - if not caU it in 

02590 44 18496 18966 
02602 49 17676 
02610 

INSTRUCTIONS FOR LOCATION 19946 to 00000 

^946 *5 13628 00602 Call in float and branch to proper location 

SS 2 5S ?8966 Check to see that float is in core if not prepare to call it in 

19978 49 17708 , 
19986 10200000118626 Control word for read data from disk 

00000 
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MODIFICATIONS TO AUTOSPOT PHASE 3 FOR DISK 



OPERATION 



Load cards for phase 3 modifications 



AAAAA 

uuuuu 


34 


00056 


00701 


j-ioaa noat on to uisk 


aaa19 

UUUJ.4 


38 


00056 


00702 




AAA OA. 


36 


18552 


00500 


jL/>aa in two moaiiication caras 


00036 


36 


18632 


00500 




00048 


49 


18576 





Call in next card 


aaac;£ 

UUUOO 


10536700718312 


Control word for float 


AAAAA 

uuuuu 


36 


18312 


00500 


Load in six modification cards 


AAA1 9 
UUU YC 


36 


18392 


00500 




AAA 9/1 


36 


18472 


00500 




AAAQ« 
UUUOD 


36 


18712 


00500 




AAA/1 Q 
UUU40 


36 


18792 


00500 




00060 


36 


18872 


00500 




00072 


49 


18576 





Call in next card 


00080 










00000 


36 


18930 


00500 




00012 


36 


19892 


00500 


Load in 4 modification cards 


00024 


36 


02530 


00500 




00036 


36 


01936 


00500 




00048 


49 


18596 




Return to Modification program 


00056 


49 


00042 





Modification for write a card 


00064 


49 


00010 





Modification for read a card 


00072 
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TRAILER CONTROL PROGRAM FOR AUTOSPOT 



DISK CONTROL WORDS 

01900 XX XXXX2 0000000 Control word to call post processor 

01914 10560020000000 

01928 10200000110000 

01942 10000000000000 

01956 10200010010000 

01970 10000010010000 



Disk control word to call phase 3 
Disk control word to punch out put 
Disk control word for last data written by last phase 
Disk control word for write - X per data 
Disk control word for read trace per data 



TRANSFER DATA FROM SECTOR 100000 TO 102000 SO POST PROCESSOR WILL FIND DATA 



01984 


26 


01947 


19991 




01996 


34 


01970 


00701 




02008 


36 


01970 


00702 


Transfer data, 10,000 location at a time 


02020 


34 


01956 


00701 




02032 


38 


01956 


00702 




02044 


11 


01975 


00100 


Increase sector address for transfer by 100 


02056 


11 


01961 


00100 




02068 


24 


01975 


01947 


If more data still - so back & transfer again 


02080 


47 


01996 


01100 




CHECK FOR CARD OUTPUT 


02092 


34 


00000 


00102 




02104 


39 


02375 


00100 


Type out instructions 


02116 


34 


00000 


00102 




02128 


48 


00000 


00000 




02140 


47 


02224 


00100 


Check switch 



PUNCH OUTPUT ON CARDS FROM DISK 

02152 34 01928 00701 Read from the disk one card at a time & punch it 



02164 
02176 
02188 
02200 
02212 



36 
38 
11 

24 
47 



01928 
10000 
01933 
01933 
02152 



00702 
00400 
00001 
01947 
01100 



If not finished, get next card 



CALL IN NEXT PROGRAM 

02224 26 01927 01913 Enter here from phase 3 



02236 
02248 
02260 
02272 
02284 
02296 
02304 
02316 



34 
39 
48 
34 
26 
49 
36 
00 



00000 

02441 

00000 

01914 

19999 

19988 

01914 



00102 
00100 
00000 
00701 
02317 


00702 



Enter here from phase 2 

Set up switches for next program 

Call in next program from disk and branch to Us start 
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TRAILER CONTROL PROGRAM FOR AUTOSPOT 



CHECK SWITCH 3 

02318 34 00000 00102 Check switch 3 for either phase 3 call or card output 

02330 39 02645 00100 

02342 48 00000 00000 

02354 46 02236 00300 

02366 4& 02092 



PRINT AREA 



02374 


62 


66007 


02386 


55 


00465 


02398 


43 


41594 


02410 


64 


63215 


02422 


45 


63006 


02434 


59 


630/6 


02446 


64 


57006 


02458 


46 


56590 


02470 


67 


63005 


02482 


47 


20594 


02494 


63 


00626 


02506 


63 


0/ 


02540 




00 



10056 TYPE OUT AREA: SW 1 O 

65900 NbFORb 
40056 CARDbO 
94562 UT/RES 
26341 ETbSTA 
24563 RT/SET 
26600 UPbSWb 
05545 FORbNE 
75956 XTbPRO 
56245 G-RESE 
34159 TbSTAR 
T/ 



LOAD CORE & DISK 
02544 41 02220 00500 

02556 36 02300 00500 Call the remainder of the program into core and load the 

whole program disk with a correct halt at 02628 



02568 


36 


02380 


00500 




02580 


36 


02460 


00500 




02592 


36 


02620 


00500 




02604 


34 


02630 


00701 




02616 


36 


02630 


00702 




02628 


48 








02630 


10535001001900 




02644 


62 


66007 


30056 


SWb3bO 


02656 


55 


00465 


65900 


NbFORb 


02668 


57 


48007 


32159 


PHb31R 


02680 


45 


62456 


30062 


ESETbS 


02692 


63 


41596 


30/ 


TART 



LOAD ROUTINE - TO LOAD PROGRAM INTO CORE 

00000 36 01900 00500 

00012 36 01980 00500 

00024 36 02000 00500 

00036 36 02140 00500 

00048 36 02220 00500 
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TRAILER CONTROL PROGRAM FOR AUTOSPOT 



LOAD ROUTINE - TO LOAD PROGRAM INTO CORE 
00060 36 02540 00500 
00072 49 02544 
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AUTOMAP PHASE II 



This phase is loaded on the disk in two sections. This is done because all 
core locations are taken and the "read in" area is defined as "DC" rather 
than "DS". Statements 1-14 load the first section and 15 - 23 load the 
second section. 

Statements 24 - 31 are changes to the main program. Statement 24 branches 
to the read disk routine and statement 25 adds one (l) to the read sector 
address upon returning to the main program. Statement 26 transmits the field 
of numerical blanks to location 00000 rather than to the output area. Number 27 
branches to the write disk routine. Number 28 changes the halt after the 
"END" typeout to a "no op". Statements 29 - 31 change record marks to group 
marks to insure termination of the write disk instruction after the transfer 
of 80 characters. 

Statements 32 - 42 are the read disk routine. The program branches to the 
read instruction (#33) and if an address check or write check occurs a branch 
to the seek instruction (#32) is made. Upon completion of the read operation, 
statement 37 checks for a "FINI" code. Upon finding a "FINI", statement 39 
sets up a branch to end of program routine. Statement 40 branches to the 
main program. 

Statements 43 - 56 are the write disk instructions. The program branches to 
statement 44, which gives the option of either; ( 1) putting the output on the 
disk or (2) punching it in cards. Statements 45 and 46 move the output from the 
odd numbered core location to an even location. Statement 47 writes on the 
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disk. Statements 48, 49, and 50 check indicators and seeks (statement 43) 
if necessary. Statement 51 adds one (1) to the sector address and statement 
52 returns to the main program. Statement 53 in the punch statement and 
statement 54 returns to the main program. 

The "End of Job" message is contained in statements 57, 58, and 59. 
Statements 62, 63, 64 and 65 type "End of Job" and call the next program. 



111-18 



47 



AUTO MAP PH2 
CORE TO DISK 



STATEMENT NUMBEB 
1 
2 
3 
4 
5 

6 
7 

R-W DISK 
CARDS 

8 

9 

10 

11 

12 

13 

14 

15 
16 
17 



CORE IX)CATION OP CODE P ADDRESS Q ADDRESS 



00000 
00012 
00024 
00036 
00048 



36 
36 
36 
36 
49 



19640 
19720 
00080 
19900 
00080 



00500 
00500 
00500 
00500 



00080 
00092 



36 



49 



00000 



00000 



00500 



19900 
19912 
19924 
19936 
19948 
19950 
19962 



16 
16 
34 
38 
48 
10 
00 



00004 
00009 
19950 
19950 

42001 



41000 
00000 
00701 
00702 

98000 



00000 
00012 
00024 



36 
36 
36 



15000 
19800 
19840 



00500 
00500 
00500 
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STATEMENT NUMBEB 
18 
19 

20 
21 
22 
23 

FBOM R-W 
DISK CARDS 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 



AUTO MAP PH2 
CORE TO DISK 
CORE LOCATION OP CODE P ADDRESS Q ADDRESS 

19920 00500 



00036 



15000 
15012 

15024 

15026 



01714 

01726 

01854 

01866 

07872 

11290 

11371 

04603 

19640 

19652 

19664 

19676 



36 
49 

34 
38 
48 
10 
00 



49 

11 

31 

49 

41 

& 
34 
36 
46 
46 



15000 

15026 
15026 

43980 



19652 
19749 
00000 
19770 



19744 
19744 
19640 
19688 



00701 
00702 

02198 



00000 
00001 
11372 
00000 



00701 
00700 
03600 
03700 



III -20 



AUTO MAP PH2 
CORE TO DISK 

STATEMENT NUMBER CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



19688 

19700 

19712 

19724 

19736 

19744 

19756 

19758 

19770 

19782 

19794 

19806 

19818 

19830 

19842 

19854 

19866 

19874 

19886 

19894 

19906 



46 

14 

47 

16 

49 

10 

10 

34 

46 

31 

26 

38 

46 

46 

46 

11 

49 

38 

49 

10 

00 



19640 
11209 
19736 
01720 
01726 
00000 

19894 

19874 

00000 

00079 

19894 

19758 

19842 

19758 

19899 

01878 

11291 

01878 

20000 



00600 
00004 
01200 
19952 


01112 

00700 

00400 

11291 

11370 

00700 

03600 

03700 

00700 

00001 



00400 


01000 
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AUTOMAP PH2 
CORE TO DISK 



STATEMENT NUMBER CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



57 

58 

59 

60 

61 

62 

63 

64 

65 



19908 

19920 

19932 

19938 

19950 

19952 

19964 

19976 

19988 



00 

63 
56 

10 
00 

39 
48 
34 
36 



57487 
41596 
550£ 
44000 

19909 
00000 
19938 
19938 



20062 
30043 

72000 

00100 
00000 
00701 
00702 
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POST PROCESSOR PHASE I 



Statements 1-7 are changes to the main program. Statement 1 branches on 
indicator (equal) when the "FINI" card is read to initialize the starting sector 
address. Statement 2 branches to the read disk routine. Statement 3 branches 
to the write disk routine. Statement 4 branches to set up the calling of Phase 2 
rather than Phase 3. Statement 5 branches to call the next program. 
Statement s changes the message from "Reload G. P. Output" to "Starting Pass 
Two. " Statement 7 changes another message. The old message was, "Use 
Phase 2, Contouring", the new message is "Calling Ph 2, Contouring". 

Statements 8-12 load the program on the disk. 

Statements 13 - 21 load the changes into core. 

Statements 22 - 31 are the read disk routines. Number 22 is a two position 
field to receive the transmission from the BTM entry. The group mark on the 
disk is the 81st character and this program only has 80 positions defined for 
the read in area so that the first character beyond the read in area must be saved 
Statement 24 accomplishes this. Statement 25 then reads disk. Statement 26 
turns off WLB/RBC console light, and statement 27 returns the digit moved by 
statement 24. Statement 29 returns to the main program. 

Statements 34 - 44 are the write disk routine. Again in order to get all Sp 
positions on the disk the 81st character must be moved (#36) an,d a group mark 
placed in the 81st position (#37). Statement 38 writes on the disk, statement 39 
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turns off the WLR/RBC light and statement 40 replaces the digit moved. 
Statement 41 adds one (l) to the sector address and statement 41 returns to 
the main program. 

Statements 43 - 48 set up the program to call Phase 2 rather than Phase 3 i 
desired. 

Statements 49 - 54 call the next program. 
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STATEMENT NUMBER 



POST PROCESSOR PHI 
READ-WRITE DISK 

CORE LOCATION OP CODE 



P ADDRESS Q ADDRESS 



1 11132 

2 11556 

3 19512 

4 19596 

5 19620 

6 02033 

7 01985 
CORE TO DISK 

8 01770 

9 01782 

10 01794 

11 01806 

12 01808 

LOADER 

13 00000 

14 00012 

15 00024 



46 19784 01200 

17 19696 00000 

17 19806 00000 

17 19908 00000 

17 19952 00000 



STARTING PASS TWO 
(Alphameric ally Coded) 

CALLING PH 2 
(Alphameric ally Coded) 



34 01808 00701 

16 00004 41000 

38 01808 00702 
48 

10 58002 00000 
00 

36 19694 00500 

36 19774 00500 

36 19854 00500 
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STATEMENT NUMBER 
16 
17 
18 
19 

20 
21 



POST PROCESSOR PHI 
READ-WRITE DISK 
CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



00036 
00048 
00060 
00072 

00080 
00092 



36 



36 



36 



49 



36 



49 



19934 



01770 



00080 



00080 



00000 



00000 



00500 



00500 



00500 



00500 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
33 



19694 

19696 

19708 

19720 

19732 

19744 

19756 

19768 

19770 

19782 

19784 
19796 



00 

34 

25 

36 

46 

25 

11 

42 

10 

70 

16 
49 



19770 
19703 
19770 
19744 
01850 
19775 

20000 



00701 
01850 
00700 
03700 
19703 
00001 

01017 



19775 
11496 



02000 




34 



19804 



00 
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POST PROCESSOR PHI 
READ-WRITE DISK 



STATEMENT NUMBER CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
46 
47 
48 

49 
50 
51 
52 
53 
54 



19806 

19818 

19830 

19842 

19854 

19866 

19878 

19890 

19892 

19904 

19906 
19908 
19920 
19932 

19934 
19946 
19952 
19964 
19976 
19988 



34 

25 

15 

38 

46 

25 

11 

42 

10 

06 

00 
16 
39 
42 

10 
00 
39 
48 
34 
36 



19892 
19837 
10086 
19892 
19866 
10086 
19897 

00000 



19939 
01985 



62002 

0000 

01931 

00000 

19934 

19934 



00701 

10086 

0000^ 

00700 

03700 

19837 

00001 

01100 



06000 
00100 



00000 

00100 
00000 
00701 
00702 
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POST PROCESSOR PHASE II 



Statements 1-16 are the read disk routine. The main program branches to 
the read statement (#4), then checks indicators (statements 5, 6, and 7). If 
the disk address check or read check indicator is on a branch to a seek (#3) is 
made. Following a correct transfer from disk to core the input data is 
transferred to the odd input address. Statements 8-12 are needed for this. 
Upon completion of transfer of the 80th character, statements 13 and 14 
initialize the transmit digit instruction (#8). Statement 15 adds one ( 1) to the 
sector address and #16 returns to the main program. 

Statements 17 - 29 are the write disk routine. Since there are only 80 
positions defined as an output area, the 81st position must be saved (#21) in 
order to set a group mark (#22) to terminate the read instruction of the next 
program. Following this is the write disk instruction (#23), indicator checking 
instructions (statements 24, 25, and 26) and a branch to a seek (#19), if 
necessary. After the seek the digit is transmitted to the 81st position (#20) 
before returning to statement 21. Upon completion of the transfer from core 
to disk, the 81st digit is replaced (#27), one ( 1) is added to the sector address 
(#28) and statement 29 returns to the main program. 

Because Phase 2 is not always used and only two areas are defined on the 
disk for input-output, it is necessary to move the data output by Phase 2 so 
that input for programs to come will be properly oriented. Statements 34 - 60 
do this. 
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Statements 30 - 33 move the output exchange statements to the high end of 
core, out of the way of incoming data. On completion of the exchange, 
statements 61-70 set up the call of the next program. 

Statements 71-73 are changes to the main program. #71 branches to the 
read routine. #72 branches to the write routine and 7 3 branches to end of 
job routine. 

Statements 74 - 79 load the program on the disk, 
Statements 80 - 94 load the changes into core. 
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POST PROCESSOB PH2 
READ-WRITE DISK 



STATEMENT NUMBER CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 
18 
19 



10720 

10732 

10734 

10746 

10758 

10770 

10782 

10794 

10806 

10818 

10830 

10842 

10854 

10866 

10878 

10890 

10898 
10910' 
10912 



10 

00 

34 

36 

46 

46 

46 

25 

11 

11 

14 

47 

16 

16 

11 

49 

10 
70 
34 



00000 

10720 

10720 

10734 

10782 

10734 

02365 

10800 

10805 

10805 

10794 

10800 

10805 

10725 

01844 

20000 
10898 



01150 

00701 

00700 

03600 

03700 

00600 

15000 

00001 

00001 

15080 

01200 

02365 

15000 

00001 



01024 
00701 
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POST PROCESSOR PH2 
READ WRITE DISK 

STATEMENT NUMBER CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



10924 
10936 
10948 
10960 
10972 
10984 
10996 
11008 
11020 
11032 



15 

25 

15 

38 

46 

46 

46 

25 

11 

49 



02550 

10935 

02550 

10898 

10912 

10996 

10912 

02550 

10903 

03264 



00000 
02550 

oooo£~ 

00700 
03600 
03700 
00700 
10935 
00001 




30 
31 
32 
33 



11040 
11052 
11064 
11076 



31 
31 
39 
49 



19618 
19938 
03475 
19626 



11084 
11404 
00100 




34 
35 
36 
37 
38 
39 



11084 

11087 

11092 

11104 

11116 

11128 



(19618) 

(19621) 

(19626) 

(19638) 

(19650) 

(19662) 



00 
00 

26 
12 
11 
14 





000 

19625 

19625 

19620 

19625 



10903 
02100 
00001 
00000 
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STATEMENT NUMBER 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 



POST PROCESSOR PH2 
READ WRITE DISK 

CORE LOCATION OP CODE 

11140 (19674) 47 

11152 (19686) 

11164 (19698) 

11176 (19710) 

11188 (19722) 



11200 (19734) 

11212 (19746) 

11224 (19758) 

11236 (19770) 

11248 (19782) 

11260 (19794) 

11272 (19806) 

11284 (19818) 

11296 (19830) 

11308 (19842) 

11320 (19854) 

11332 (19866) 

11340 (19874) 

11352 (19886) 

1135(4 (19888) 

11366 (19900) 



12 
11 
14 
46 
34 
36 
46 
34 
38 
46 
11 
11 
12 
14 
47 
49 
10 
00 
10 
00 



P ADDRESS 
19734 
19625 
19620 

19625 

19686 

19888 

19888 

19734 

19874 

19874 

19770 

19879 

19893 

19620 

19620 

19734 

19952 

00001 

20001 



Q ADDRESS 
01300 
00100 
00001 
00000 
01100 
00701 
00702 
00600 
00701 
00702 
00700 
00100 
00100 
00001 
00000 
01200 


00005 
00005 
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STATEMENT NUMBER 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 



POST PROCESSOR PH2 
READ WRITE DISK 

CORE LOCATION OP CODE P ADDRESS Q ADDRESS 



C 



11368 
11380 
11392 
11404 
11416 
11418 
11430 
11442 
11454 
11466 



(19902) 
(19914) 
(19926) 
(19938) 
(19950) 
(19952) 
(19964) 
(19976) 
(19988) 



00 
00 

23 
10 
00 
39 
48 
34 
36 



59456 
62634 
00574 
62002 

19901 
00000 
19938 
19938 



24563 
15963 
8730^ 
00000 

00100 
00000 
00701 
00702 



C 



CHANGE TO MAIN PROGRAM 



71 

72 



01832 
03252 



49 



49 



10758 



10936 



00000 



00400 



73 



03372 



49 



11040 



00000 



CORE TO DISK 



74 
75 
76 
77 



15000 
15012 
15024 
15036 



34 
16 
38 
48 



15038 
00004 
15038 



00701 
41000 
00702 
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STATEMENT NUMBER 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 

89 

90 

91 

92 

93 

94 



POST PROCESSOR PH2 
READ WRITE DISK 

CORE LOCATION OP CODE 



15038 

15050 

00000 

00012 

00024 

00036 

00048 

00060 

00072 

00084 

00096 

00108 

00120 

00132 

00144 

00156 

00168 



10 

00 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

49 



P ADDRESS Q ADDRESS 
60001 20000 



00080 

00160 

15000 

10720 

10800 

10880 

10960 

11040 

11120 

11200 

11280 

11360 

11440 

00000 

00000 



00500 

00500 

00500 

00500 

00500 

00500 

00500 

00500 

00500 

00500 

00500 

00500 

00500 

00500 
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POST PROCESSOR PHASE III 



c 



Statements 1-18 are the read routine. The main program branches to the 
read instruction (#5) and transmits the starting core location into the disk word 
(#3 and 4). Statements 6, 7, and 8 check indicators and branch to "seek" (#1) 
if necessary. Statements 9-14 transfer the input data to the odd input address. 
Statements 15 and 16 initialize statement 9. Statement 18 returns to the main 
program. 

Statements 19 - 32 are the output routine. The main program branches to #23, 
checks indicator (program switch 2) and if it is on punches a card (#31) then 
returns to the main program (#32). If program switch 2 is off the program will write 
the output on the disk and return to the main program (#3)0). 



Statements 33 - 35 are "fill in zeros". 

Statements 38 - 40 are the end of job message. 

Statements 41-45 type end of job and call the next program. 

Statements 46-51 are changes to the main program. Statement 46 "branches 
and transmits" to the read routine and 47, 48, 49, and 51 branch and transmit to 
the write routine. Statement 50 branches to the end of job routine. 

Statements 52 - 57 transfer a core image to the disk. 




Statements 58 - 67 load the changes into core. 
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POST PROCESSOR PH3 
READ WRITE DISK 

SATE MENT NUMBER CORE LOCATION OP CORE 



2 
3 
4 
5 
6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
16 
17 
18 

19 
20 



19524 

19536 

19544 

19556 

19558 

19570 

19582 

19594 

19606 

19618 

19630 

19642 

19654 

19666 

19674 

19686 

19698 

19710 

19712 
19724 



34 

49 

10 

00 

36 

46 

46 

46 

25 

14 

46 

11 

11 

49 

16 

16 

11 

42 

34 
49 



P ADDRESS Q ADDRESS 
19544 00701 



19558 
00000 

19544 

19582 

19524 

19524 

03653 

19612 

19674 

19612 

19617 

19606 

19612 

19617 

19549 





01000 

00700 

03700 

03600 

00600 

00000 

03732 

01200 

00001 

00001 



03653 
00000 
00001 



19732 
19746 



00701 




III- 3 6 



4 



POST PROCESSOR PH3 
READ WRITE DISK 



STATEMENT NUMBER CORE LOCATION OP CORE P ADDRESS Q ADDRESS 



21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 



19732 

19744 

19746 

19758 

19770 

19782 

19794 

19806 

19818 

19830 

19832 

19844 

19856 

19868 

19880 

19890 

19902 

19904 

19916 

19928 

19940 

19952 



10 

78 

46 

15 

38 

46 

46 

46 

11 

42 

39 

42 

00 

00 

00 

10 

00 

59 

62 

00 

39 

39 



20000 

19832 

04139 

19732 

19794 

19712 

19712 

19737 



03979 
00000 
00000 
00000 
00000 
64001 

45624 
63415 
43565 
03085 
19901 



02039 

00200 

000QZL 

00700 

03700 

03600 

00700 

00002 



00400 

00000 

00000 

00000 

000 

70000 

56300 

96323 

5650^ 

00100 

00100 



111-37 



41)3 



POST PROCESSOR PH3 
READ WRITE DISK 

STATEMENT NUMBER CORE LOCATION OP CORE 



43 
44 
45 



19964 
19976 
19988 



48 
34 
36 



P ADDRESS Q ADDRESS 
00000 00000 



19890 
19890 



00701 
00702 



CHANGE TO MAIN PROGRAM 



46 
47 
48 
49 
50 
51 



01940 

02536 

11754 

12546 

12570 

13894 



17 

17 

17 

17 

49 

17 



19558 
19746 
19746 
19746 
19940 
19746 



00000 
03978 
03978 
03978 
00000 
03978 



CORE TO DISK 

52 
53 
54 
55 
50 
57 



03654 
03666 
03678 
03690 
03692 
03704 



34 
16 
38 
48 
10 
00 



03692 
00004 
03692 

62002 



00701 
41000 
00702 

00000 



in-38 



4 



POST PROCESSOR PH3 
LOADER 

STATEMENT NUMBER CORE LOCATION OP CORE P ADDRESS Q ADDRESS 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 



00000 
00012 
00024 
00036 
00048 
00060 
00072 
00084 
00096 
00108 



36 
36 
36 
36 
36 
36 
36 
36 
36 
49 



00080 
03654 
19524 
19604 
19684 
19764 
19844 
19924 
00000 
00000 



00500 
00500 
00500 
00500 
00500 
00500 
00500 
00500 
00500 



111-39 



495 







IV 



Appendix 3 
Sample Problem 



o 



PAGE 1 



i" . i. in t a h i* i 



001 



00** 
00 3 

bb4 

00'. 

bo* 
nor 



; ADTIISPOT PHASP 2 



001) 
009 

b(i'j 

009 
t 126 
I 130 



pHASf:/ Scans our put or phase i rTumo hv I<ecoro 

.'■W-* ON CAI'.D INPUT/OUTPUT 

swi ofT""PrTnT'TJOTPUT "BP" PARSE?" 

PUjll STAR r TO CONTINUC ON ERROR SHIPS 
TriumI THfToF/RTlMftt Rfc TYPE ~ • 
■"KKIU2 TOOL NUMBER NOT IN 10UL IABLE 



I.KKDU'» PAMEKN LENGTH EXCEEDED 

error t p sttew tTNwriWTXErre enr 

f KR0R6 PA I TERN OPERATION ERROR 



TUT 

I 1 3? 
I liJ 
1 1 14 

1 H» 

t 140 



POKl, 

nr.? 



oi too 

tAKDS 



i-jf-t>i -4?,;, tape wor 

RCHMP 

• -4 

CARUX,rFlAl,-l , ,CAR0 INPUT 
PPL AC- 1 — — 

CARD I- 79,,, HEAD FIRST CARD 



"5IT50 - 
01700 

oTfl* 

01724 
" 7JI73T 
01732 



46 01732 0200 
36 12025 bttibd 
49 01840 00000 



TT4T 

1 144 

I t4i. 
I 1411 

1 i'-o 
1 1 »? 

T TY'i 

1 ID.'. 

1 IM> 

I 1 85 

I 190 

1 • ?0( > 

2 "our 

2 020 
2 021 
2 02? 
2 02 3 
2_ 024 
2 ()?'» 
2 026 
2" 020 
2 OS I 
2 052 
2 OM 
2 054 
2 055 
f 056 



CARDS 
!-CARO 



<MPI 
•I 

UORG 
I* NT 
CP 

RMCD 



"TfTi INLUCCAROWV 

»NF RCARO, INLOC, 11, NEXT CARD 

tr- rh'POT-4-?', rmncm 

AM INLOCt'tf lOilNOEX INPUT POINTER 

bn'r' i-12, liTLor.lT 

AM INLHC.1,10 



44 01780 13261 
33 T326T OffOW 
01756 36 130*6 OO fr OO - 



oi /r.o" 

01780 
"0T792 
01804 

nST6l6 

01628 



Tfi~l3220 

44 01756 

51 Viali 

11 13220 

45 "6T804" 
1 13220 



J 1056 
1322- 
132?~ 
000- 1 

tiff-" 
ooo-l 



-4 'p 19742 



rTomT- 

StRCUl 



0l840 
01852 
"OUST 
01876 
"010H8 
01900 



6 vim 

14 12752 

"<S bTT-ai 

24 12026 
46 01920 
11 12752 



TFfsr 

J2772 

biloo" 

1275K 
Ol200 
000-2 
00000 



TCTT 

CM 

w 
c 

W 

AM 



Timr,v5mu 

C0MPl,C0MPir.20 

Try ?f. ' 

INPUT-46,CUHPI_,ll 

CM Nil """" 
COMI'l ,2,10 



B .VEKCII1 

fjriRi. »-4 _ 

CF lNb IS "iiuf puI-4'7', "i Ni*irf-'« t ' 

BNF »C36,("F|N0 _ 

sr fiutPVi r-46 "" 

CP CFINO 



01912 
01919 
0l920 
01932 
0T944 
01956 



49 01852 



3 1 T2"9T6 T2b2r 
44 01968 01920 
32" I29TT 00000' 
33 01920 00000 



IRY26 



~fiW~ l)f>IIT,,7 
B NFXf _ 

oori; »-4 

CM INPUT-46,26, 10, IFSr FOR 00 TO 

iif oil r ii 

cm iNPiir-46, i'i ( io, rrsr for stop 



01968 
01980 
019117 
019HB 
02000 
02012 



17 11484 -obbb 
49 01700 00000 

14 12026 000K6 
46 02036 bi 200" 
14 12026 000L9 



HIE CON I 

BUF MAJCK .PFLAGG 1 1 , .TEST FOR PATJERN_ 
Hi) C F t NO » I NPli I - 4 5 ~ 



02624 
02036 
32048 



47 02232 01200 
44 02104 13273 
43 Ol920 i2027 



PG I. IN LABEL OP 



LOCN OP INSTRUCTIONS 



2 057 
?' OS 8" 
2 050 



BTM SP,INPUT-4f,7,STO IN PAT TABLE 

zn~ irr ypfvt, nr~ 

BP NEXr,,,RCAO NfXT RECORD 



02060 17 11288 J2025 
T12572 T4~in2T-D0CFr 
02084 46 01700 01200 



7JW 
058 



2 058 MAJCK 



058 
050 
058 



15 error 

OORG »-4 

ch~ Tmix-^i,',w " - '~ 

HNC CFINO 

CM IfjPUT- 4"2~^TI",T(7i TTTST ' F OTt 2 ""COWD 
CFINO 



02O96 49 01920 06606 
02103 

"0"?TO";"1VT25?8" 

02U6 47 01920 
TjH2fi 15 1261(5" 
02140 46 01920 



Tvm 

2 058 
2 0*8 
2 05« 
2 6*58 
2 0T.8 

-T"B5»~~ 

2 J 58 

2 0«>8 CONT 
2 069 
2 OBO 
2 030 

T~rv5 

2 30 



TK INPUr-i?,TxlV-lT 



F4 INPUT-22, 1X1 Y-l 



U2l5? 16 
02164 16 

02176 45 

02188 16 

07? (36 IS 

02212 49 



~B CTTRC 

;mrg »-4 

cm - twput-45 ; nr,"iff, tpst for NEirmwnir^cr 

BE PA TCK 

mi " toor ' " " " "~ 

BNF NEX T , PFL AG 



07224 4-) 
0223t 
fl2"2 32 "14 
02244 46 
TT22515" tt 
02Z-50 44 



7JfT7r69 
0044 5 
00422 
00469 
004'tS" 
00422 



000-5" 
01200 

ooojr - 

01200 

-iiwr 

J2040 

J 2 114 

-2223 

J205"6" 

J2I24 

MM" 



T7026 000J0 
02752 01200 
02068 01 ion 
01700 13262 



080 
080 
80 
081 

7j!rr 

083 
084 
085 

065 
088 



-or — I'n.AC 

BNF »r. 16, 1NPUT-46 _ 

SF CFINO 

tf RTYPEViNPUT-47;, .s/n/r ace TYPrr " " 

I1NF CKODD, PFLAGf.lt 

Tr ~ T-rt ATrrn 

BO PLUNt. jPTLAur. I , , TPST PAT LENGTH 

Sr PFLACf.2 

TF SCNCT,PFLA(,C4,6,RESEr CNTR 

TFH PflAG£4 » , 0" 

TF TYL0C,I'LCV,6,SET PAT GENERATION INOlCAfOR 



022d0 31 
02292 44 
7J23TJ4 13 
02316 32 
02328 26 
02340 44 



02352 33 
02364 43 
02376 32 
02388 26 
" "Tj'ZWTJTS' 
02412 26 



02328 
12026 
01920 
1212/ 
02436 

TJ2TT 

11172 
13264 
1325N 

TJ26*" 
1279- 



'OOObfl 
12026 
OTOW 

00000 
12026 
13273 



00000 
13263 
TJOOOO" 
13266 
0-000 
13277 



(T¥5 

120 CKODD 
130 

140 EVEN 

144 

146 

rm 

2 148 



TFW 
CM 

nrv 

CM 

Bi: 

TF 



PLEV,,10 

INPUr-',6,05, 10, TEST FOR NEW PAT 
PA f"M," 99 
INPUI-46, , 10 
NEXT 

fYPt ,INPUT-43,,SAVL OPEIATION CODE 



02424 16 
02416 13 
02448 4 i 
02460 14 
0Z472 46 
02484 26 



I49 
150 
153 
154 



'Zn INPUI-46,0^!,lo 

nr cfino 

CH TNPUT-46;0A,T0 " 
«p SIX 

TOLNTJ, INPUT-T9, ,SAVr TOOL NUMBER 
INPUT-4 6,04, 10 



2 l r >r. 

2 l r '8 SIX 
2 159 



rr 

CM 
"iTT~ 
tr 



TOLM(II), INPUT- 36, , SAV TOUL MOD 



02496 14 
02508 46 
TI2570 14 
02532 46 
02^44 26 
02556 14 
02t6b 46 
02 r >80 26 
f)2592 49 



132// 000-0 

120 26 000-5 
0260') 00099 
12026 000-0 
01700 01200 
12130 12029 
-17076 000-2"" 
01920 01200 
1 20 2"6 000-6 
02580 01200 
12134 12033 
12026 000-4 



: 



01920 0l20fl 
12177 12036 
01920 000O0 



4 y v 



PG LlN tAlll-L OP OPERANDS 



LOCNUP INSTRUCTIONS 



2 |60 

tin 
2 m 
tut 



PAtKi 



»-4 



DOUG 

"ST p FtXc'C n » » > P 57 TT R^TBpTk STTTJN 
SF 



02599 



PFLACC10.,,ri)K SAVE 

i^pi)f-46,oi,t'),srr record tvt*e even 



" 626d5 3_"T3_73 bbbod 
02612 32 13272 OOOOO 

02624 12 tidH 6bo-i 

02636 11 13260 000- j 
"""02646 TT T3575 OOQ-I 
02660 26 1326-13275 

02684 26 1279 13260 

02696 11 iiHd bdd-i 

02708 26 13255 13260 

~oTf2irn _ 152lo bdo-l - 

02732 It 132 66 000-7 
027 44 Wb2"460 "SboMt 
02751 

bzHt M liibi oobdd 

02764 44 02812 13273 

"wrr TfTi iso nwrr- 

02788 14 12127 000-1 

HI 800""4"5" 1 f 0F0T2W" 
02812 31 12105 12029 
02824 31 12916 12025 



2 m 

" i in 

2 178 

2 ire 

2 17H 

1 m 

2 180 
2 lHt 
2 182 
2 184 
2 t86 

~2 186 
2 18 7 
2 1 88 
2 193 
?I94 

2 198 

J bid 

3 020 
J 022 
3 040 

i 05 b 
io 010 

io oi?" 

10 014 

lb dir. 

10 018 

Id 020 

10 022 

io 014 

3 060 

5 67o 

3 072 

3 74 

3 076 

3 088 

1 089 

"3 090 

3 100 

3 lob 

_J_0_ 

.» 110 
3 110 

3 1Tb 



AM 
AM 
TF 

AM - 
TP 

in — 

TF 
AM" 
AM 

w'- 

OORG 
— — 
ONF 
BTtf 

CM 

-w 

TR 

-fir - 



PrAH.Ot, 10 

TcTr,oT,io " : ~ 

P T AB» PCNT , 6 » I RANSFL'R PATTERN NUMBER 

"l^TXR , 027 IF " ~ 

TYLUC , P I All 

P1AR,0},l0 ~ 
SCNCT.PTAP,,, ADDRESS OF SCAN COUNT FOR THIS PATTERN 

"tiahtft; if" "- — ■— 

PFLAGK4,7,10 

• -4 

pTTCTj ; — — ; — 



MINOR, PFUUr.ll 

"SP",TRpOT^4S777sTO"TN~m^iIOr '"~ 

RTYPE,01,10 

m*r, vvottcx: tvPE-NdHPur 

TXTY-20, 1NPUI-43. ,SAVE TX AND TY 

rjUfPUT-4 7\lNPUt-4T 

OUTPUT-43, AUXIN,, SET CONTROL REC MARK 

" UPrjTV"UrpuT ThT3"«Tc7Jr5 

NEXT 

»-4" 



CODE 
FIND? 



TR 

B 

bond 

TFM 

"CM 

Ull 
C 

nr. _ 
"am"" 
o 



COMP2,COMP2f,2 

COMP2,COMP?f.8 

TRY13 _____ 

"I NPUT-"4~6TC0MP2 , TTiTEST'TOR PATTERN OPERAT ION 

PATOP 

C0MP2, 02,10 """ "" 
FIND?' , 



02836 31 12920 12104 
"FZMSTT Tl4fj4~oooo~ 
02860 49 01700 00000 

~bT§6? ", - 

02868 16 127 77 J2779 
0288b 14 12777 J2789 

_02892 ^6 02948 01100 
02904' 24 12026 T2l7P 
02916 46 03748 01200 

"02928 - IT "l2ffT bob^" 
0294b 49 02880 OOOOO 
02947 

02948 14 12026 000j6_ 
02960 46 "03[24"*ono3 
02972 44 JJ3020_ 13273 

"02984"l7" 11288 12025'" 
02996 14 12127 000-1 
03008 46 Ot700 01200 

_°3_20_14 1202<>_00qj_ 
03032 46 I 920 0T200" 
03044 16 00469 -3079 
0305616" 00445" "32036 
03068 49 00422 J2U4 
03080 16 00469 -3115 
03092 ^6 00445 J2046 
03104 49 00422 "J2T24 



DORG 
CM 

BH" " '"" 
BNF 
"(VfM " 
CM 



• -4 

INP UT-46 ,16,10 

"aux.TTTesT FOR AUk ILL t ARY SecTIon " 
_TRANS_» P_LA^ _t liiJEJL F0R PATTERN 

sp,Tnput-4T,T, sto in TaTTabTe" 

RTYPEtlt 10,TKST FOR DEFINE STATEMENT 
NEXT,,, 01 RCf. TYPE ~ 
INPUT-46, l_l, 10_ 

"cfTno 

input-36.txty-11 



OE 
CM 

FA 



Ta INPUT-26,TXTY-1 



PG 


LIN 


LAItCL 


OP 


OPERANDS 




LOCN 


OP 


INSTRUCT10NS 


3 


120 




B 


CFIND 




03116 


49 


01920 OOOOO 


3 


130 




'OORG 


• -4 




dit23 






3 


140 


AUX 


CM 


INPUT-46, 49,10 




03124 


14 

-rr 


12026 O00M9 




INIH)T-46,51,10,TEST FOR DAIMETER 

umr ~ — 

INPUT-46, 65, 10 . 

cttnF 

INPUT-46,9l,l0,TEST FOR TOOL CARD 



03148 14 12026 



irntb 46 

0317 2 14 
03196 14 



03264 
12026 
FT920 
12026 



O0ON1 

0T2W-- 
00005 

fdw - 

OOOR 1 



l\}U9l 

ERS UB, 7 100,8, WRITE ERROR MESSG_ 
T994^ 

TAcJPT,INPUT-39,6,SAVE TOOL NO 

"Tiwnyi'jtW _ ~ 

TABPT, 1NPUT-1 7,6, SAVE TIP ANGLE 



46 19466 01200 



03220 
"1994? 
19942 
T9954 
19966 

TWTT" 



17 11190 0P100 



26 1322N 12033 
Tl T3"22"? liOFJF" 



26 1322N 12055 
11 13225 b00-4 



r«\l»Pr,04ilb 
ERSUH636, , .OUTPUT TOOL CARD 

E;;Rirr? " "~r " " 

INPUT-46, 10,10, TEST FOR REMARK STAT 
ERKl,,,tLLt"GAL CODE 



19990 
"Ti3732 

03232 
""tTT24T 

03256 

03263 



49 11226 OOOOO 



14 12026 OOOLO 



4"6"~I T226 TjT_7J7jr 

49 03220 OOOOO 



«-4 

I YPF, /,9,TEST FOR CSINK OR SPORILL 

ifNGir" • "" 

TYPE, 009, 9 _ 

CPIMD "".. "" " " 

ADRES", TBLE-5i»6 

TSTmcT,"nvLf:-i9, ,scam" ran. rooL""MO 

• r.,'4 

ER _iffi, 7 20b", H . TOOL I0O "MfSSI N"G " " 
TOLNO , ADRES ,11 

ANGf.'VC " ."' 

AD.<FS, 14, Id 



03264 
F3276" 
03288 
OSJOO 
03312 



14 12130 

"46" 03312" 

14 12130 

47 bl9"2F 

16 13230 



~3T 4" 
03336 
03348 
03360 
03372 
03 384 



TFucTTI 

«-4 

AiiurS, 10 ,10 .aiRPUTC OHPTV! 
-AI)RES,RCONV 



Tin rA,o'),,sAvf cnNVtftTfh angit" 

THE1A.1W0 



tf - tht;Ta;-ooq')9 

FSIN BUFFN.THETA 



03396 
03403 
T»340"4 
03416 

03428" 

03440 

— CITTT 
03464 

~ 03475" 
0J488 

""03>30b 
03512 



14 13230 
47 03360 

17 11 

24 12134 

45 0"J40V 
U 13230 
49 03324 



00-07 

OTJo-fr - 

00-09 

OI26F" 

J2191 

J2728 

01300 

0P2FO"" 

1323- 

F1200 "" 

000J4 

oooob 



■4 140 
4 140 

4 i5<r 



"FCOsTiUPf n.THFTV 



3124 
35 36 

03"5'48" 



rn3230 

16 00469' 
T6""0T26O 
49 01262 

26 121154 

16 00469 
26"0r26o" 
49 01422 
26 I21S4 
16 14270 

16 1425S" 



"07J5J7J" 
-3451 

"I323-" 

J3409 

60099 

-3499 

12 154" 

J2144 

00099 

-3547 

J2l6"4 



49 13548 

r6""T4270" 



J2154 

-3583 



Pi. I IN I A(1U 

4 I'tlJ 
A lii) 

4 160 

T_5 



LOCN OP INSTRUCTIONS 



rn imr r N v i'-iim o 



t60 
1 70 

1<»6 

l90 

ivo 



(I li.. t A ,'•/'» 

ft) INI III— 3ft, TWO 



Too" 

010 

olo 
010 
t>'?0 

OAQ 



'» oso 

5 060 
10 Ot9 »'AfO> 
10 070 

10 040 

" to 050 

10 r >«i 

li) 060 111)140 

10 070 

la oho 

lO O'H) 

~'Io Too 

10 1 Id STORF 

LB in 

io iu 
lb tU 
to us 

"To"TT5 — 

10 117 
16 I IB 

to l in 
io ii«i 
10 120 

~ 10 121 TFMl 
10 I2!i LFVUK 
lO (50 

l'j 030 PIWMP 
IS 040 

I "i 050 

r 



~FT r 
Hi 



ft 

f DM 



Tnmui-j6,o6ov) 
; l MPUr-Jfr^ltCt A_ 

I npOT- 367)57; COMpUftb RlfPTH TO flbFTFTT 
INPUT-46,,,SET DEPTH COOF. 



035601614258 

oBt2 44 11514" 

03584 j6 00469 

03596 H 01265 
0J60B 49 01422 

3632 16 00469 
~6"lf"*V'2T" STISo 
03656 49 0j422 
AJ66A 54 12636 



J21T4 
-3619 

Tfrsr 

J2174 

007J99 
-366/ 
U8TS 
J2144 

<F6W" 



•I 

immo 

sr 

SF 

WV' 

PI) 

Ti 

onm, 

CF 

so""" 

IF 

"Afr- 
it im 

ho 
TF 

Bf "" 
All 



crlN0,.,hUTPUT ue>tH 

PA i OPT; t PATTrifN (TPtfKATl'W - — 
PFLAG 

r i ypt ;o vi7rrTFsT~FBff rnwiET -BTRiirrr row w 

00040,00099 



PbW»h,,,oUfHJ» Wis PATTrRN 

•-4 

I'TWTpTnfiETTB" ~ " 

PFLAGMO 

pTSb » o 4 » 1 oY i N'uFx T6TjHT{nr^icTviin»55 "" 
TVLOC,PTAB, , SAVi: API) Of GENERATION INDICATOR 



03680 16 00469 -3715 
o"f59T~2mi7Bff Ifff!* 

03704 49 01422 J2154 

~637I6~2TT?61a MOW 

03728 H 12026 00000 

03740 44 51420 60060" 

03747 

o3f4TT 3T IS mi 00-0-60 

03760 32 13262 00000 

OlfTT TJ 12127 OO0-5 

1784 43 03804 00099 



PtAB,04, to 

SP,lNPUl-4/, f, STORE MII.MFR GENCRAT ION PATTERN 

tfVOKTP"LfV-r- ~" "* 

PATNO* 1NPUT-4?, , SAVC PATTERN NO 

pAiioc,pAiiw,-,iricArrTriTs psf in pat fAStf 
coMp9e6,2,io t tNorx fst trv pointer 



(J3T96 49 04000 00000 
03803 

~(nS54-4TlT3-i6-4 1 3272" 

03816 33 13272 00000 

TTJe 2 8" T2 T32 60 000-4 

03840 26 12790 13260 

B MSI -11 !32"6o 000-4 



~W- »C20,C0«P9''.Ot it.fPST PAT Lf.VEL 
B TFMl • 

oiIrc "i-T ""■ " 

IFH PLEV.ll.tOjStl PATJLEy__IN01CAT0R 

H itfvOK ~ "' """ ~ "" 

onm; •-'» 



03864 17 11288 
"83iTfK T3 0397* 

03888 26 12890 
"'03900' 2? 11396' 
03912 11 11414 
03924 43 03944' 
03936 49 03964 
"O-3943 

03944 16 13277 
OttTT ^"03976 

0396 3 _ 

03964 16 13277 
03976 14 12127 
"5 3988 '46 61 700 
04000 26 12890 
"04012 If 11396 
04024 \l U414 
04036 44 040*2 
04048 ±3 03748 
04060 26 I351V 



J2025 
l32'7'6 
12030 
12890 
00-2 

iiTiTT 
00000 

000 j 1 

00006' 



000-1 
000-t 

01200 
12030 
12890 
000-2 



4 



052 
! r . 0«54 
IV 056 



TFM PLEV.l.lU 

cm r t ypf , 1 , 1 , 1 t. s t_ for output _ 

'»•; ncxT "" ~" """' 

if patno, input-42 _ _ 

ht p atloc" , pa rfibt ;L6caTf "THi s" PATf f rR"~ 

AH C0?1P9r.6 f 02 t 10, 1N0FX POINTER FORWARD 

PfF >G36.rArOP,, SWITCH FOR PAITtRN Gr.Nf RATION 

CF PATOP _' 

fr GN6;cd»P96<»,l TiSAffU GENHRAffON LEV " iNOfCAfUR 



03 748 
00000 
1 141 H 



G 



PC LIN LAHEL OP OPERANDS 



LOCN OP INSTRUCTIONS 



15 060 
i5 Of 6" 
l*» 080 



ONF CK0N ?tPFLACt7» t TEST 3R D LEV FLAG 

BO iH5,t0HP9t6,lt 

8 RINGl 



04072 44 04268 
04084 TJ ~0"4"n$4" 
04096 49 04344 

— arm 

04104 44 04128 

— oTH6-TrTnw 

04128 32 13270 
WI4"0 25 -HW 

04152 II i?n-> 
04164 2f> I2(i0«r 

04176 21 12800 

04200 11 1279* 
— TJ47ir 31" I7S61 

04224 26 12890 
■ — 04236 11 127W 

04248 45 04236 
0^260" W WO 12 

04267 
' — W2CT 4X 0*33? 

04280 43 04300 
0*2'12 W 6A344 

04299 

04300 3117540 

04312 32 13269 
04J2V4* 7J4I40" 

04331 

04132 4 3 04128 

04344 11 11414 

— Tnr35*~» rem 

04368 21 12182 

TJST80' 12 121*2" 

04392 26 12187_ 

04404 11 11414 

04416 26 12917 

— -7jT4?B~« ami 

04440 43 04460 
0"W5J~4TW72 

04459 

04460 26 UW 



13269 
II4IR 
00000 



It 040 

ts 100 

15 JO'S 

15 120 L0AD2 
IS 130" ~ 
15 140 




bflkc »-4 ■ — : 

BNF tg*pj«^t*Gt8,,IS A PAT OEF INED^ ON A PAT 

SF _ PFtA GC8,,,SEC L ^ A ^ W ^^ H GEN npeH^ylt,, BUFFE RS 
AM PLOC2tO3,10 , 



H TTV 

15 t76 
15 330 
15 340 

15 110 CKrilNT 
15 360 

-ti"J7ir- 

15 ISO 

16 390 
t5 430 
15 440 
15 450 



"FT PCNT2.W.6C2 

A PCNT2,PLOC2,tl 

"SIT r*CMT2,08,r6;^n r 'LCNtTH UT THIS Mif ?l 
AH PL0C2.I. 10 

t«- Tjwit2=F;tTnc2Tn,T^ "u^ 

TF PATNO, SURF2C2 . 



~RR PI 0X2,1,10 

HNK •-12,PLOC2,ll,IN0EX SCAN POINTER 

fi — TrHwrpn^ — " 

OORC »-4 



— — 

OORG 
TX ~ 
SF 
11 

OORG 

T5""4WCKSIH m~ 
15 4 70 R1NGI AM 



BNT TKSTH .TFUtiTH, , TEST TTJR ?H0" CEN P*T 
HO •C20,CONP9i.6,U - ' 



mum 

PlOC3-4.PLOC2-4, 7sTr" Htn LEV OPEX HUFPEB5 
PFLAGC7,,,SET 3R0 GEN PAT SWITCH 

xoa02tt2t;;retoab -/ntj - c cv-tjopit; 

»-4 



13270 
BP 500 
00000 

ir4"t4 

000-3 

Tmr 

I279N 

000-8 

000-1 

1279R 

12806 

OOO-l"" 

1279N 

06000 

11278: 
11 41* 
00000 



00000 
00000 



TT»rn7v c»HP)Efi,n. T E5 T fop. 5IHPIE p m 

C0MP9&6,03,10 

15 4«o tf - PTC»r;c«w^E« . _ - — 

15 490 A PTCNT,C0MP966,11 ■ f 

is >?oo sr T*TCNT f w;To;irrtcTOTOWTAT 

15 505 TF R TCN 1 , P ICN I f , SC T PAT LIMIT FOR REVERSE OPERATION 



TmiJ AH CoHP^66,02,lff 

15 520 TF OUTPUT-44.COMP9C6, 11, SURF 

15 sjo air ""ni7jr;pTPi6T« 

15 540 BO «620,SURF2-1 

15 ^45 ft FUC7 

15 550 OORG »-4 



TO OUTPUT BUFF 



mm 

000-3. 

11414" 

1141M 

000-8" 

12182 

OOO- 2 

1141M 

13270 

12803 

OOobff 



IT^ATJ 

IS 600 FIAG7 
15 620 
15 625 
15 63(1 
15 640 

rr 



TF — 
ONF 

sn 

B 

CORC 
TF 



l >U T PU r -44,5UUF2 
PRIliR,PFLA«iC/ 

iH20,5URFl-l 

PR10H 

•-4 " " " 
0UTPUT-44.SURF3 



77T 
15 655 
15 6*0" 



PRirTK 



■W «C20, l MPU T -45.. t r.51 FOU MEW 5l« r 

B TRA10 

WCi-4" "~ 



04472 44 04516 
TJWir* 47TT450V 
04496 49 04516 
04507" 

04504 26 1 2919 

645H 43 04!>36 



12804. 
13269 
1285? 
00000 



12853 
12027 



04528 49 04548 
TJ45T5 



PO LIN UNCI OP OPERANDS 



LOCNOP INSTRUCTIONS 



5 MO 
9 690 



9 69l 

i ojo setup 
f 632 " 

7 036 

1 63T xm~aTn~ 

7 019 



TF 

"TfFT 



irnrw 

AM 
"TR 
AH 
Til 
AN 



OUtPUT-44ttNPUT-44 

ilOTPTJT^56iTo7T3 

UUTPUT-43 t AUXtN 



04)536 



UOTP 



t , .uuiPUT 6AsH sUHF — 

C0MPVf.6,0li lO 

5T-?(i7£eflPvt«Tn f SAVn tooftb TRaUsfTJK* 

COMP'»66»2ltlO 



TT434T 

0*560 /n 



<» tiot* 



ill 



1 BMJtf 

2920 1*104 



TOf FuT-TTiTcW ^.lMs f HAtHlNE Wltt f 1 o» Uf w t r 

COMP9t6 t l«10 



04384 

6T?9T 
0*608 



1464 -6fibo 
1414 000-1 

'iwnntT 

OKI 



046215 

04632 U \UU OOO-t 

14 iHlf wokI 



cH MfPbl-U. ,><»>, 10, T EsT H* ROTO OH UOP 

1 042 BL 

f MS VI 

1 9 900 BO 

15 §6T " TFW 

15 902 



-WirpT7T--5TranTPDT^?7,,SHirT REc im oputkoft 



04644 
04696 



15 904 
IV $04 
Is 005 

15 907 EHJ6 



m 

SF 

• sr~' ■ 
n 

CM 



emc,cNo,»n:?.T for 1st gen pat 
t ATTl I? 4 !"," • t ToiTSFTT-REraiN ABbRESS" 
f xcc 



W 0468 O t 



300 



04665 n iwi 

04680 43 04744 1 
04704 49 09896 00000 



"b 468 

15 909 HRR2 
15 914 TKVG? 
1* 91S 

15 916 

19 91T 

T5~9Tr 

19 919 
i'i 920 
lb 923 



• -4 

tR4N 

iitreF 

ANYMO 

•-4 

(NPUT-46 f 36il0 



~m — nmrr 

BTM ERSUI)t7600tdtPAT OPER ERROR 

"SB GTiCHfPl 

TFM NXTll-2 t «t2 

T ' JM'CZt t 1 SECOND GETTTST 
OORG »-4 



■oTftr 

047 IZ 32 08916 00000 

-a<TT4~ir"T3?6r mw6o~- 

04736 49 06844 00000 

w« — " " 

04t44 14 12026 000i6 



TFM 0PL«2,,ld 
n IRAN 

or 

ER 36-32 
»-4~ 



6415* 4» 64166 l\m 

04768 17 U190 QP600 
"WfWTTT 04*36 Ij3U 
04792 16 06734 -4812 
"948*34" 49 06264 00000 
0481 



648li 16 1 2802 680-5 
04824 33 09120 00000 

~54i w frmsn aooag 

04848 49 04712 00000 

T4BS5" r — 

04856 JH 12831 00016 



924 
92" 



G3 



CF 

?r -- 
B 

rifJKy 
cm 



0PUR3 1 36|0l 10 » 3RD- GEN PAT 



T5~"T25" EMI 
15 925 BNF EXEC3 f G3 

|ii ijjjjj, cF " 53 ~ 

15 927 CM iRANS-JliJjao.TESr TO_SAVE 1ST PT OF PAT 

IS 928 " Bl "ToCl " "~ ~ ~ 

15 931 TF FG3X t TRAN3-21 



04868 46 
04880 44 

64T59?-yr 

0490V 14 
049ffc '4l 
04928 26 



4Hft i\m 

05028 04B56 

g4i56~6ooea~ 

12B57 000J2 
3496O"^DO0 
134B1 12867 

13441 mti 

09028 00000 



~V> 73? 

1?? 993 

19 9 34 

15 936 LOCI 

15 9 3B 

15 940 



If 

B _ 
"DORG 

CM 

PL 

tr- 



^G3Y,rRAN3-il 
EXEC3 _ 
t-4 

TRAN2-3J. l i2jlO_ 

XdCI ' 

FG3X t tRAN2-21 



04946 26 
04992 49 

"94^59 

04960 14 
549T24F 
04984 26 



ib 9Al 
15 942 
li 943" 



Tf 


OORG 



FG3YiIRAH2-ll 
EXEC3 
'i-4'" 



12808 000J2 
050l6~11300 
13481 12818 
13491 12828 
05028 00000 



04996 26 
05008 _49 
65615 



PC. TIN LABEL OP OPERANDS 



LOCN OP INSTRUCTIONS 



LOC 3 



FG3X-9»ST-20nSAVE 1ST PT OF PAT 

TYTc=r,T,io,rcsr for Lmnmx — 

EX2C24 



E)<2,lNPUt-46 t .HUL 1 N5TH-CHECK Pflft IWEfc T 
EX2-?0,OPER3 t t TFST FOR 3RD GEN INVERT 
fll»tW2;i67Vo,, TEST FDR 2MB fiEH TUVERT 

LOC 7 

Elf2Ti21tOPEh2 

• C40 



05016 31 134 72 1 2891 

— 7j5"6?r"trr2i29 oflo-i 

05040 47 05164 01200 

65052 43 6Si46 Ubil 

05064 43 05120 12851 
— B5U T6" T4 TJErBtS" 

05088 46 05208 013O0 

05112 49 05152 0000 

— arm — T ~ 

05120 16 05163 J2851 
■~" 6^132 **"65T52"06dW- 
05139 

— 05I4T5 "R 05165 JW26 
05152 17 10236 -0000 



"EX? 



«-«" ! 

EX2f.23,0PER3 

"•ITTT" 

»-4 

•tTJ.TffPin -4T, ^1 L L 1 NVeTTSIWT 

MILLR . • ■ 

OI*Ek2,34,10»rt : s r Ft W 2MB C C N I NVERc. I PW 
LOC 7 

-TMVumjPEinr - ^ 

L0C6 

r _.. A : 

OPER2,36,l0tTtST FOR 2Nf» GEN REVERSAL 



05164 14 12802 66014 

05176 46 09208 01100 

05TOnTTm«T2W52~ 

05200 49 05252 00000 

— Tnrtsr — " ~ — 

05208 14 12802 000L6 

6*226 4 7 0525? 61266 

05232 17 08184 O0OL6 
TJ52~44" 49 053T6 0006 
05251 

" Oli2S7 W 1760*~00OJl~" 
05264 47 05320 01200 

6t2U 44 6 * 5380 1324 T 

05288 27 10096 12838 
0i30O 2T 07S«rT0TJ«~ 
05312 49 05376 00000 
05 SIT 

05320 14 12808 000 J 1 
6S332 4 7 053 7 6 61206 



LDCS 



T0C7T 

REVRS.36,10 

coc* ~" " " 

•-4 . ■ 

TR*w2-irfTrrro;7TiST"FOR twit GET^enTrw/mwr" - 

L0C9 



m«n;Ff swi t ch tm ahcll ctmvtmiUN 

SIC0tTRAN2-l»fC0MPUTE SINE AND COSINE OF ROTAT ANGLE 

ROTO i"5 1 CU-T rf"ROTlTE" "THT5 T*TJ1 HT " 

L0C8 _ 

TRAN?-3l,ll f 10.TEST FOR 2ND GEN ROT W/0 TRANS 



L UC ft 

LOC 10 • TRIGFt t HAS ANGLE BEEN CONVERTED 

stco,fffirN2-2i " 

LOC 10 . 

••-4 """ " " " 

OPi;R3,40,10.TCST FOR 2 NO GEN 01FFFRENCE TRANS 



• t 36 

TRANJ-31,10,10 

LOCI I " 

DTKAN,. 10. COMPUTE 2N0 GCN DIFF TRANS 

opcrt,3 4 , i o i rt s t For am tch inversi m 

L0C1J 



05344 44 09300 13267 
~05356" ZTTTHWS -now 

05368* 49 05300 00000 
~B53T5 

05376 14 12851 000*0 

053ft8 4 7 05424 01206 " 



05400 14 12857 OOOJO 
13541 2 46~ U559'6'TJi;200" 
05424 17 09120 000-0 
"05436 " 14 1 2851 0001* " 
05448 46 05472 1100 
054&6 2 7 07544 126S r 



TNWTTUPTin 

LOC 1 3 TRAN3-3l,13,l0,TEST FOR 3RD GEN ROTA TION 

tiNt T0CT4 " 



054 72 14 12857 OOOJ3 
~ 63%34~4TT 0554"6 1200 



5 



pi; 1. 1 'i i. a C r i dp 



IOC IS' 



r.-ir 

hT 

ut 



L(H.r>, I Kh.f ,,A.H.|.r || jt 

sic, i uAij i - i 
Km n, m cit- 1 



ft t'JUl 

DDK'.. »-4 

Loch (.4 inAij)- ii.i i ,10,'rrsr 'FW 'JKU~WEfnmrvmiRhm 

liir men 

ii-il Ll)(. i s, i rim" - - : 

111 T 5 I CO, I KAN 3- 2 I 



trie i I 



it 

O'titi; 
C'i 
HNC 
CM 
BE 
IJIM 



l.lltl*> 

»-4 

i h PO' I - 46' , 4 o",To tTfSTTtTiF" "JiuT "gCTT'DTFF ~ TR"A7i s" 

»£36 _ 

' I Mini f (>"."! o, To "~ ~* 
LOCI ii 



JJJ? N OP i ns; TJUJC ttONS_. 

05*96 44 0952 13261 

~wsm irxmrimr 

05520 2T 07682 10093 
t>4 b9$$6 obooo" 

ov; 39 

6 r , v,o inWT oBdJl 
05 5 5? 47 05596 01200 
"b*5S64" V4"0"^b'H6" IMS? 
5576 27 10096 12867 

TT'jbeu 49 bSs^d tioboTJ 

05593 

•oT«r'JS"T^ "I? 02T oooffS" '" 

05608 47 05644 01200 
TJ5-E20-TT TZdT* BBB3JT " 
05632 46 05816 01200 

it 



i)ti<4;.,',, t o, COMPUTE 3K(J cfcH blr-f IkAHS 

cm iNi'ur-'i6, 34,10, rcs7 Frm inversion 

nil ' loci 6 ' " 

BT I NVR f , I NPU T-46 

ITicTf, Cff " - 1 npu i-4o, iT,To,TPTT "For iTDT wTTlTANs 
BNE L0C20 

nil? loci'j.iRior ~ 

BT SI CO, INPUT- 10 

' (oil •'}• BT Rifi o , sTctT- T~ — 

_M Jrl'C 1 H _ _ 

OfjRG »~4 "" '" "' " " " ~ "* 

tor. 20 cm inpijt-40, H, lo, its r fop, rot w/o trans 

~ ~ PIT — CnOli ' 

BNF LOC 19, TRIGI' 

ftf " sTco, Input-Jo" '""'"" 

LOCI 9 

biiRO •-'» " " 

OTH TRAN, , 1,0, FINAL f R ANSKORMA T I ON 

uth opui , , fOUTPor 1 nil s point 

C C0MP9!.6,l<rCNT 

OC XMAIN '""' '." 

SF D I,,, RESET _SW ITCHES ON LAST PT OF PAT 

CP OTRAN "" " " 

B ER36- 12 



LOCK! 



0*644 If 09614 Bflo-3" 

05656 14 12026 000L4 

1)5668 46 "05692 OllOO 

056B0 27 07544 12026 
5 692 141203?" 000 J 3 

03 704 47 05760 01200 

0j7T6~44 05740 13267 

05728 2 7 10096 12062 

fJSTSg 7T (5TRS2 W6W 

05752 49 05816 00000 

U5F5? "'*■ — 

05760 14 12032 000J1 

05f>2 4? 05916 01206 

05784 44 05740 13267 

JT76" Tf T0096 no4? '" 

05808 49 05740 00000 
"6'fSTT " - 

05816 17 00516 000-0 



otmo 

CM 

BNE 

CM 

nil 

HTM 



058 28 IT 11484 -0000 

0*'B40 24 11414 12187 

05352 4'f 64620 61 300 

05H64 32 09348 00000 

o'5«7"6" 33 09l ?o doodo 

05BB8 49 04712 00000 



TYPF-l ,?, 10, IliSl FOR LINE MILL 
»r.4»i 

INPUT-46, 34, 10, TEST FOR MILL INVERSION 
f RYRV 

KILLR, INPUT-46 

I NPU T-4 6, 34, 10, INVERSION TEST 

• 6 3? 

INVRT , 'lNPUT"-46. "" 



05U95 

05H96 14 22129 000-2 
'05908 4 T 05956 Oi2"00 
05920 14 12026 000L4 
059 32 46 06000 01 100 
05944 17 J0236 J2026 



CM 

or 



05956 14 12026 0OOL4 
05968 46 06000 OllOO 
05980 27 07544 12026 



PG LIN LAilF.L OP 



LOCN OP INSTRUCTIONS 



TRYRV 



1 7 200 

i; 206 

17 208 

If M 

17 210 

I 7 212 ~" 

17 212 

17 213 ' 

17 214 

17 215 

10 216 

17 217 TRYW 

17 21B 

17 211 

17 220 

"IT 723 

17 226 LAST1 

17 22 7 

17 229 

17 210 

17 231 

~TTTJ2 

17 23) TRYRl 

1 7 234 

17 ?35 

17 23o 

17 2 33 

~11T3T 

17 240 EXEC2 
17 241 
17 242 

1 1 241 
17 244 

"TT'74""! 

17 ?46 

IT 24? 

17 2' 

17 ?49 

17 ?50 
-TT~75T~ 

17 251 

17 ?M 

17 251 

17 ?5t 

17 251 

" TT7 i rr now ur 

17 2^1 
17 2M 



rRYR0_ 
»-4" 



TinRd 

CM INPUT-46. 36, 10.TEST FOR REVERSAL 

~m — nmu — 

BT REVRS, INPUT-46, , 36 

rrrw arwr,"7oTJTpw~THTs point 

TFM OUTPUt-50, ,10,RESEI GOTO OR STOP SWITCH 
C rrrjW9E6-;PTt'Hfi,ICST FOR LAST POINT 

BH ER36-32 

TWVe24,,-,GL"f NC>(f PrllNT 

»-4 



05992 49 
059-F9 
06000 14 
06012 47 
06024 27 
55dT6"Tr 

0604B 16 

06060 24 

06072 46 

06084 49 
06091 

07,092 "14 

06t04 47 

06116" 44 

06128 27 
06140 27 
06152 27 
06164 17 
06176 24 
06138 47 
06200 49 

06207 

0620B 14 
06220 4T 
06232 44 
06244 27 
06256 49 
0626 3 
06264 14 
062 76 47 
06288 43 
96300 14 
0'.312 46 



O6092 00000 



12026 
060-12 
08184 
T 1 4 84 
1291 3 
11414 
04712 
06024 



000L6 

TSTW 

12026 

"^5003 
000-0 
12182 
01100 
0001)0 ' 



~T\ 

OORG 
CH- 
UNK 

BT 

TTT — 
b r 

TiTH 

c 

"-HI ' 
B 



t MPUT-4"Tjrrr;To r TFs"r w wtt H/Tfnms 

TRYRl 

L A"STI-"n~,TRT5F";TA'NtiLE t-HFCK ~ 

SIC0flMPUT-10 

R'iim, oi.cti-i 

TRAN, INPUT-40, , FINAL TRANS 

OPliTii , OUTPUT TlfTS" POINT 

C0MP9t6,RTCNT, , TEST FOR LAST PT THIS PAT 

xHAiwr^cxr-prjrwT" 

,,,RE1URN TO MAIN ROUTINE 



12032 
06208 
06140 
10096 

b76fl?.' 

085 16 

11484 
11414 

'04620' 
00000 



ooojy 

01200 

13267 

12062 

I 0"'J95~ 

12032 

-0000' 

12187 

01 300 " 

00000 



BiWU «-4 

CM INPUT-40, 11, 10, TEST ROT W/O TRANS 

RNT LS5TF" '■""" "" 

BNF LASTI^-12,TKI0F 

(if SlCt5,TNf5Vjr-TO " - 

B t. A , T 1 - 1 2 

noko •- 4 ' 

CM TYPE-1,2, 10, T! bT FUR LINE MILL 

bmc ■ e2 " ' -" : 

BO E 3, INPUT-46, , TEST FOR MILL INVERSION 
CM n P r ft 2 , 3 4 ," T o , I f 5 T T- ir 2W GT N MILL INVERT 
BH N0W36 



1203? 
&6T52 
06140 
10096 
06140 



000 J 1 
OT200 
13267 
12042 
00000 



12129 
06376 
06356 
12802 
06420 



000-2 
01200 
12026 
O0OL4 
OllOO 



E4 
E3 
F2 



~WFT 
BIM 

li 

orm;; 
TFM 

B 



• t?3,oPErt2" 

M 1 1 L R , P E K 2 

• r,?H 
»-/, 

l:4«.tl,fNlU)T-46 
F4 



onxc; »-4 ' 

C'I 0PFP.2, 34,10,71 ST FOR 2Nn GCN INVERT 
till »t 12 - " " ' 

HT I NVR I , UPER2 
II NOWl J 

0n«o »-4 

ll'l»ER2,36, lO.rt-'Sf IMVEitSlhN 



u;ir 

I! I'M 



NOW 13 

rtKv «'<;,", to' 



0^)324 16 

06 3 36 17 

06 348 49 
06355 

06356 16 

06368 49 

66375" 

06376 14 

053"88 4ft" 

06400 2 7 

064 12 4'i 
06419 

06420 14 

064 32 4 7 

06444" 17 



0634 7 
102 36 
06376 

06347 
063 36 



J2802 
00000 

J2026" 
00000 



12802 
06420 
07544 
06464 



000L4 
01 100 
12B02 
00000. 



12bo; 

06464 
OBlfi' 



oooOT 

01200 

000-0 



c 



5 ii i 



P(i I IN I AtH'L ni» OPl RAIJUS 



LOCN OP INSTRUCTIONS 



<-">? 
2 54 

jrv3 

MS'.' 



I) 

nriur. 
cm 



I J 56 

IT R6| 
17 lif.1 
IT U61 

"IT TiTT" 
IT 861 
It H6<> 
IT 1)6 3 
1? 864 
IT ()(.'. 

" TT T.f.f~ 
17 66 f 
IT 86!) 
IT 869 
17 ii/4 
IT Br;. 

TT'TTr 
TT c/6 

a aii 

IT Rf8 
if 8 79 



NTfTT 



HfJ 



-4: 



HHP 
HliT 
OH? 
HI) J 
IJB5 



NXTtl 



I 
IT 
If 
IT 

IT HHf. 

17 891 NO W 1 1 

\VW>2 

IT 893 
17 
17 



HMF 
I1MF 
fit 
HI 

cm " 
bnl 
TW — 
nr. 

'»TM 
CM 

bit 

I'.T 

TTT— 
dni 

R T 
fit 
BTM 

"HTM 
C 

bl 

rioRci 

CM 

■~Hwr~ 

l\Nf 

lit 

B 

oh«(V 

CM 

bhi 
bnf 

" fit 

B 

bimc; 

HC1 Y 

tFM 

TR 

ft' 

oorg 
hnf 

c 

~5R — 

AM 
CM 



Norm? _ _ 

t kan?-31, 13,10, test row ?nu gen rotat w/trans 

-mm ' — 

NOT 1, I R IGF 

Sled, fKl5N?-r " "~ 

«oto,sico-i 

ruFift-^j,; w,i<&~, frrr'TM thutcv 01 ft ikw 

»t36 

INI'i)f-4d,l6,td 

Nor?r.i2 

orkARWia — - 

lNPUI-46,34,10,TEST FOR INVERT 

Nxro 

tNVRT, INPU1-46 

lNlnM-4 ,lA,to,lfesr rfiR Ml U/TtUNs 

nxth 

nhi?,7rii;f - 

S1C0,1NPUT-10 

Rtflo.sTCCPT 

THAN, ,10, FINAL TRANS 

bPut,,,ourr>Oi tHlS PttlNt 

C0MP9f.6,RTCNT,,TEST FOR LAST PT OF PAT 

xHMR" 



_06456 

0*4*; 3 

0M6't 
064 76 
064 88 

" 66500 
06512 
6~6*2V 
06536 

"7f6W 
06') 60 
06*5 72" 
06584 
06 5" 9 6 
06608 
60626 
06632 

07.654 

06636 
06668 
06680 



49 06524 00000 



lNP0T-40.lt, 10, TEST FOR RUI W/0 1RANS 

NOt?U? 

NOI?, IRIGF 

slcri, Input"- 30 "" 

NO I? 



TRAN?-31,ll,10,TrST FOK ?NI) GEN ROf W/OfRANS 
NOI 1612 
NOFt j fR l(iF 

s icB, tr wi-n "~ " ' 

NOT I 



0<>692 
06T04 
06 7175 

06728 
66 735" 
06T36 

b6 74« 

06760 
06772 
06784 
06791 
06792 



14 12808 OQO J 3 

4 7 06732 

44 0651? 13267 

n mT6 xtm — 

27 07662 10095 

T4" l262"6"6T9HTj 

47 06572 01200 

I* I203? 666J6 — 

46 066B0 01200 
17 99l2o 666-5" 
14 12026 000L4 

46 : Tj66?o Tsrree ~ 

2T 07544 12026 

U 12bJ2 dflbJS — 

4T 06736 01200 

WUMOT WST — 

27 10096 12062 

27 oW2 10995 

IT 0B516 OQO-O 
17 U4M -0006 — 

24 U414 12 18T 

4 7T«26"fJT36T5 

49 06T28 00000 



14 12032 PQOJl 
4 7 06680 O1200 
44 06660 13267 
2 f T66W126?? 
49 06668 OOOQO 



14 12808 OPOJl 
<i7 06924 61200 
44 06912 13267_ 

2T T6b96 T28X5 

.*? ...P.. 6 *L? .PP9.PJL 

34 QOOQO 00102 

16 12913 600-0 

31 13221 13279 

44 61766 6666F 

44 57522 11270" 

24 12795 12800 

46 672fe olldo" 

11 12795 000-2 
14 l2f9N 6001(6"" 



893 
895 



1/ 090 
IT 217 

— Tr ?it 

If 2 I T 



?1> 

?u 
Tt'i 

7?0 

rw 

f3 3 
7 14 



OUtPUt-50,00, 10 

TAI)P7-4,TBLEl-4,,RriNl T I AL 1 Z E PMASE2 

NtxT" -■ " 

nohh ;r»f : LA.rt'8,;'Ti'sf' fifK ' 2 no gen pAf 

PLnC2,PCNT2 t ,tEST FOR LA ST SUHPATTF.RN 

OFF? 

PLOr.2,02, 10, INDEX POINTER FOR 2ND GCN PAT 
PL(iC?;2'6,6l6", f ESt for "goto 



061)04 
06H16 
061)28 
06R40 
06 849 
06850 



06062 
06074 
06 886 
06R93 
06894" 
06906 
"069IT" 
06930 
0694? 



PG LIN LAI) I. L OP 



LOCN OP INSTRUCT IOMS 



l 1 * 734 
15 734 
15 7 34 

TV TTT 

IS 734 
l f . 734 
15 734 
l:» 7 54 
15 7 34 

"TT"7~TS 

15 

15 734 
1«» f34 
i'i M4 
15 734 

n 734 

15 r ,", 

I *> 7?4 
1"3 7 )4 
15 7 34 
15 7 34 

TS"~TI4- 

1«! 734 

15 734 

15 7 36 NOGO 

II 738 
15 f40 

' 15"74? 

15 f44 

15 n'io 

1«. 860 

is loo mi; 

l'» V05 
f 907 
15 901) 
15 ->0>» 
15 908 
15 90-> 
15 915 

" IT T2TT 

15 'J30 
IS "O." 
15 «»35 
15 »37 

15 9 3'» 

-rr-wr 

16 <>6i) 
lfi ()7l) 



Bf. »E36 

cm n.i.ir.'?","3^;To",' rrst poirTrw 

HNE NOGO 



~sw — pn»c^,oi,io 

TR 0UTI'IIT-47,PL0C?,11 

ih • -ptnc?,i,to 

FS 0UTPUT-12,F(;?X 



"TT Ol!TPUl-??,F»;2Y 



TR 

Trn 

TF 



13 

TJCIRG 

;;r 

<;r 

A'1 

'Trntr 

H 

OiiRG 
SM 

vi 

TF 
ATT" 
ttNR 

n 

ODRG 

sr 



ST-20,FG2X-9 

f ICNT,;, nrn tat recrunrry a corn ok a srnp 

CC)MP9i;6,PLHC2 

LAsrit.S4,«^2t),,npt ; uA rr m a cow nBTTnr 

rxic 

• -4 " " ~ " 
IRIGF 

TP. AM "" 
PL0C?,1,10 



06954 
'7J6'9"66' 
Q697R 
66990 
700? 
07D14 
07026 
TJfnjt) 
07050 
070" 6^ 

070 74 

0f09«) 
67110 
71/?.? 

071 J't 



46 06990 
14 12T93 

47 0T210 
12 1279S 
31 12916 
Tl 12T9T 
16 00469 

T6 00«5: 

49 00402 

16 06469 

16 00445 

49 "06462" 
Jl 12891 
16 121712 
26 11414 
16 06206 



01200 

TJ6T3T9" 

01200 

606-1 

12T9N 

TJOTT-T" 

-7061 

IFftt 



T ?,T l O r.?, U,INO r: X 2MB CEN Pflt.'JTCR 
TRYG0-12 _ 

•-'4 — "■"'" " """ 
PL0C2.1.10 

OPE U2"-I ,T' lint'?, ill . tTELOA'TJ" 2~Mi GEN RUTrERS 
PATNO,SURF2e2 



~Tl"T)C?,l,10 
•-12.PLOC2, 11 

PDDMPf.l2;,, OUTPUT TTHS PAT 



CF 

<;r 
rrM 

tFM 

mi 

AM 

Til : 
f 

4M 



PFI.ACI, 
OTRAM, 

Tmn"" 

D4 

0411 

FG7X-7, 500,9 

rcv-7 

LLAVl , 



t),,,THi) or 2N1) i'.rN PAT , 
, ,RFStT 2ND GIN CONTROL SWITCHES 



PFLAGf. f,,IFSr F Of. 3R0 GEN PAT 

rarnrrrrir por last sucpamip.it- 



07146 
C7153 
07154 
"07166 

071 78 
6-71 36 
0T?O? 
67269 
0T210 
07222 
07234 
07246 
0725R 

072 70 
07277 
67278 
07290 

07102 
07314 
TJ7326 
73.38 
"073!i0 
0736? 



J 34 33 
-TO<) t 
J 2941 

JJ449"" 
13430 
-OTJOTT 
12793 
-7154 
49 05896 00000_ 

3? 13267 00000 

31' TJ8MG OTJOOTT 

11 12795 000-1 

45 67178 127W 

49 06930 00000 



12 12795 000-1 
31 12861 I279NT 
26 12090 12806 

TI" 000-1 
45 07246 1279N 
49 TJ401"? OTJOOTJ " 



OF F 1 

PLirr. \, 

lir'EU3- 
PATMD, 
PL0C3, 



TfliT 



1.10.IWFX 3RD oEM POTNTCR 

t.PlfIC 3,11, RELOAD 3R0 GFN OPERATION WIFFERS 
SURF iU 

1,10 

Lur.v,n,iNi>i : < "iry, cr: t poiNim - 



PnilMPl.1?,, .(HIIiniT NEXT PATTERN 



7374 
0/386 
-D73VB 
0/410 
0742? 
07434 
7446 
74 58 
746 , > 



33 T3270 
32 09120 

32 OW) 

33 09752 
12 09753 
16 134 32 
16 1344? 
'44 7514 
"TT 12844 



OCOOO 
00000 



TJOTJOTT 
00000 
00006 
OONOO 

oonw 

13769 



46 7466 

11 12844 

31 12850 

?.f. 12890 

11 12 644 

"4T 7414" 

49 040 I? 



12840 
01100 
000-T 
12B4M 
12855 
000- 1 



T784TT 

00000 



U2 



ft. t I 'J 1*1!' I. 



LOCN OP INSTRUC t IONS 




pi law. ikrj iif:H swtlLHi > 

G3 " -— 

lit '< A V ■ 

i>4 ' : : 

r j > <i f, i«i ad Mi >;r input kecord 

1 1 /> vr , y \ i A'.i, i , t tt s r for r.HO of entire pai 
f)iF ; ?i;M,,,iiufp(iT n£xT PAT : 



i~ I AVER'S I ON ^bDKDlil t'NC 

Oil f P!Jf-46, | I , lOi TEST FOR I COORO 

r'nHWfna'" — 

JNVKT-I, 32,10 

rlipv " " " " 

P MIMX ,QUTPUT- 36, , TE ST f OR INVERT RIGHT OK I.I FT 
TTfllPlH- 36,,., MINUS TO PLUS 

• -lo : — — 

" , : , ^P. U . , "" > ^»..» PL "?. I "MINUS 

»-10 

PT»iHY,ouTPur-zft,,n::,r I <lk INVfckt Up or imiwn " 

IWTPWI-26 _ 

»-io 



07466 33 
67W1I 
7490 32 

"iTTWTT 
7514 49 
'dfsll 

7522 A* 

675 34 49 
7543 



13269 00000 
096 U 00000 
01 TOO 00000 

07514 13269 

5T29B"6b"6"68" 



T 1 ^ 



0/544 

U759T 
0756B 

"6K86" 

JL__L 
~67m5«~ 

07616 
07618 
O/Ml 



14 12917 

14 07543 
*t 576 JI 
44 07618 

13~T?92T 



000 J 1 
6l2i)6 
000L2 

of 260 

12927 

ooono 



42 00000 00000 



32 1292 7 
42 60000 



00000 
00000 



• " Hill A 1 I UN SUORIIUMNE 

oper?. u>, UN ri sr rijR rivrsal 

H4 

pir.Ni,oit to 
PicNf ,U,6io 

«t>2 ^ 

PU.Ml ,03, 10 

R4t;»'i ; 

" i-4 

PtCNI ,03, 10 

_-to 

"lHiTPi.ll-46,Tl ., 10, TEST FUR I COORD ONLY 
RFVRS-4 

"OiHPIM-3/., IHCUS 



0763? 
07644 
67"656 
07657 
07658 
076 70 



44 07658 
33 12937 
42 00666 

32 12937 
42 00000 



T2V37 
00000 
00666 

66066 
00000 



76U2 
67694 
07706 

of Mb 

07730 



14 12802 
4 7 07 7 76 
11 12182 
14 i2iak 

46 7762 



0001.6 

61266 

000-3 

006 jl 

01200 



BI»EN t 99 t , X.r.OStTHC TAn |Q PUFFER 



0/742 
077 r >4 
07761 
07762 
6 7? 74 
07775 
/ 7 76 
7/88 
6 Mod 
07812 
6 7824 
78 36 



12 1218? 
49 07800 



12 12182 

4 2 66666 



000- 3 
00000 



ooo-3 
60066 



14 12917 
46 08180 
16 60469" 
26 61260 
49 1262 
26 12164 



000J1 
01200 
-78 3b 
12727 
J3419 
00099 



OUTIMII-26, IHSIN 



07848 
07860 
07872 



16 00469 
26 01260 
49 01262 



-7883 
12937 
J3429 



PG I. IN LABEL 




OP OPERANDS 
rS 8UFFN,99 



LOCN OP INSTRUCTIONS 



n — umpuT-26,rnf.iK 



07884 16 
OTe'9? " t"6 
O7908 49 
6 7920 16 
079 32 26 

<)T) f i>; 49 

0795f, 26 
'1)7960 16 
07980 26 
7992 49 
08004 16 
080 1 1, l(, 
0H028 49 
0HO46 26 
08052 26 
0*1064 TT 
08076 47 
08088 16 
08100 16 

OUT 12 16 
00124 49 
68136 4? 
08137 
08138 1* 
08150 47 
08 1 /.2 16 
08174 49 
981 A3 



00469 
OTW*F 
00402 
00469 
01260 
61767 
12174 
004 69 
0126O_ 
0T2"6? 
00469 
6644 '1 
00422 
12927 
12937 
T?9T? 
081 id 
08111 
00469 
00445 
00422 

66661V 



-7919 

JII6T" 

-0099 

-793'i 

12937 

J34T9" 

00099 

-068*" 

1 ?'»?7 



TF BUFFO, 99, 1 Y.COSXIHETA" 

fm «orruT=56;TTi?n* — 



HUFFO, 99 



ourpnr-j^ryuTrN^^ 

0UrPUf-26,BUr FD,, Y.COSTTHFTAntX.SlNtniETAD 
HUfPiJI-46,lA,16,Tt'sr Tort A SLOpC" 



J 34,") 
-8039 
.1 ? 1 74 
-0099 
12164' 
12174 



C7T 

HNF • 662 

TFM .£23 .DTJTpTJ T-16, , ATGE 8K A~I C ALL V SUB JTRGItS 

FA OUTPUI-16,R010-1 . 



000J6 
01200 
J2947 
-8135 
J294T 
-7681 
66066". 



•-10 

wTpTjT=^6ti^Tii)VTTsr rm An"hrc m'Trsnmr 

•-14 

i-i^.rjuTPwr-s " " 

•-74 . 

•-2 """" 

•REVERSE SUBRfOUIINE 
PTCNT.1,16 

•-12,P1CNT,11,IN0EX POINTER BACKWAROS 

ptcN»;2,ro 

PTCNT,26,6 10, TEST FOR A GOTO OR A STOP 

"NTJ39 ' 

•G32,OUTPUT-50 1 
WOKLV / 
• 620 
•-4' 

NOR C VM 

TTCNT., 1, 10 ~~- ' 
f»UTPIM-5I,PTCNT, 11, SHIFT 4 LOCATIONS LEFT 
Of lN2,iirtnY,T<rST FilR Flii-VT GEN PAt 
OOTPUI - 46, 11,10, TEST FliU I COORO 
1)1: 1 M2 

tn)1PUI-3'»,ST-ll • 



1 23 1 7 666 J4" 
08136 01.300 
08123 J2937 
08100 60000 



08r«« 

08196 
08268 
08220 
ObTiF 
V0244 
W256 
08268 
•601175 
08276 



12 12182 
45 08184 
11 12182 
14 I2 18K 

4 7 081 0.' 
43 08276 
32 08686 
49 08288 



606-1 
1218K 
666-2 
000K6 



"61366 
12913 
66666 
06000 



32 08689 



68288 
08300 
08312 
08324 
6-3*6 
0«348 



T? 1218?" 

31 12912 

43 084 6 n 

14 12917 

46 68«6» 

16 0046') 



00000 
066- 1" 
12I8K 
1*515 
0O0J1 
01260 
-8383 



FA fll)frill->6, ..l-t 



OU360 
083 72 
08384 



TS _ 6T~; l r 

49 00^22 
16 00469 



T2" - ?" 
J 2 900 
-84 19 



503 



t>C. LIN LAKF.L Or OPrRAIIOS 



If st* 

\l -US 

IT 5|ft 

THtr 



J.OCN OP INSTKUCttONS 



08316 16 00*45 J2»31 



CM OUT PUt- r > 0,,10 

tt — mnrn? 

48.0UtPUT- r >l, .SHIFT 4 LOCATIONS RIGHT 

Dtimn ^t;«f " " 

PtCNt t ? t JO«IWPI:X T ?_q in tt.!*... _ _ 
•-to 



vT"ooT?z "31<ft5" 



UlMUOOH 
U W6B 0U6O 



0B4dTT 

08420 

084*4 31 00048 I2?i2 
08466 

~jmw 

08481 
T3W 
08494 
Witt 
08515 



IT 'ilO 
If 

IT 520 DCIN? 

jl 522 

T7 S2J NbJ> " 

IT '\2'. 

It S25 

If '>56 . 

1 7 V<Jn 

17 600 THAN 

TTmH 

1/ 60? 

if 60* 

IT 612 

17 614 

IT 604 TRANl 



TR 

T"R " 
S!1 

. ( ........ 

0')R(. 

~sn — 

TR 

_ 

OORG 



12 12102 000-2 
4T~0oT>W~0~oT)1r 



If 604 
1 T 604 
IT 604 
IT 604 
1 f 604 

IT 604 

'IT 604" 
IT 604 
1 / 604 
17 604 

If 6 OS NOR IV 
f 60H 



RNF 
Tf 
CM 

8L" '"" 

fr 

TP" 

CM 

HNE 

AM 

C« 

ONE 

SfT" 

K 



TTcTTTTTTTTJ 

OUTPUr-47,PTtNT,li,THtS POINT 10 OUTPUT BUFFER 

"TjirsT-nT 

•-2 

~'i STJB «TiTrn"KiTr TR KR PT' U FTiRW $ "PTMXl -TH«N"SF0HHA1 

IRANt , TR4N.0 



"12 12182 000- T 
31 1 2916 1 218K 

"4"T~0BTl7~5o"OWr 



THAn,,,MrsT f IMF SwttcM 

INPIIT-40, 12, 10. TEST FOR NEW FIRST POINT 

TRSJ" "' """ - 

ST-llt INPIJl-30, ,SAVF FIRST POtNT 

ST^TrHFUT-fiT : " " 

OPr.n2 > 36,10 t TtST FPU REVERSAL 



NOREV 
PTCNT,03, 10 
PTcH?,Tl,6To" 
• C32 

"pTcfiTTWiTo - 

POINT 



08516 H4 
0852b J3 
08540 14 

00564 26 
"OSSTf IS" 

085881* 
(1A600 47 
00612 
~Ba"6zT 
086)6 4? 

oaw T2' 

00660 49 
08667 
J)866B 12 

" 05680 "T<T 
0B687 
08681 "IV 
08T00 46 
08Ti2 16 
08T24 16 
6"bT3* 49" 
08748 16 
0»?60"i6 
OB772 49 
08784 44 
08T96 49 

"TJS8(J3 
08804 14_ 
088 1 6 "46 
08H28 11 
08840 44 
08B52 49 

" 0885 i » 



08588 
09516 
12032 
'S91W 
12900 1 

12802 
06688 
12182 

Tim 

08668 
THB7 
06184 



06516 
00000 
O0OJ2 
TJT3W 
2042 
2W" 

oqot6 
aim 

000-3 

mmr 

01200 
600-i" 
00000 



DOUG o-4 

SM PTCNT.03,10 _ 

U NWFVf.24 """ " 

OORG »-4 

cm" oUTpUT-46 f "n"tTorrrs7""F(m I cooro" 

nc- POINT 

TS 0UTPUT-36,ST-ll 



12182 

"O'BTlT 



T29tr 

08784 
00469 



00-3 
0fl000~ 



OToJT 



TT~6TT 

17 61T 
17 6 IT 

t r 618 

H 618 
IT 618 



OUTPUT-26.ST-1 



00445 
06*22 
00469 
00445 
00422 
06804 



J2927 

"3290r 
-8T83 

-J2W 

J2910 
68688 



IT 622 POINt 
IT 623 
It 62.1 
If 623 
IT 624 

17 62S 

17 Ti.S 
If hZ'i 
i7 625 



~BNF »E20,NORCV 
R. »644 

nimi, "»-4" "" 

CM OUTPUT-50, , 10,TEST_ FOR GOTO OR STOP 

m: Tran'4' '""" " "' 

AM COHP9C6.04.! 



08840 00000 



129l£ 
06884 
JH1A 



ooo-o 
6T565 
000-4 
08689 



B.'IF 

n 

OORG 



• £20, NOP. 
IRAN4 



08860 
08884 



PG LIN L Alii. I OP UPLRANOS 



LOCN OP INSTRUCTIONS 




48.0UTPU1-51 

tjotfut - 4Tr4i77inGTn- tj\tt vt^c-sttortt 

C0MP9t6,l,l0 



i-12,CbMP9t6.U,lH0^ f I AST GEN WINTER 

C0MP9C6tl,10 

NORCV 

WfTRWi:! " 



__ n5 _ _ 

IRA8,PFLAGI.7,,TrST FOR ^RD GEN PATTERN 

ykatts IR5N2V r ari: "im r lififi " wn crns ltrkctt " munwevr 

»G20i01Cl,,ARF. 1ST GEN PATS t_INKlJD_ __' _ 
TRS6 " """""" " "" " 



08860 31 0004B 12912 
--oTnSTT-JrT^lbTSoO** 
08884 11 11414 000-1 
J8d46 49 09844 U41H 
08908 11 11414 000-1 
~08920 1 6" T19tT "7J7JTJ- U 

08932 33 08688 00000 

ITHVSW 00000 
08956 42 00 000 00000 

08957 ~" 

O8950 44 09098 13269 
"08970 « 09078 "09"6lT" 
0B9B2 44 09O02 09349 

m*m w 09022" "ooooo~" 

09001 

09002 31 12891 13«50 



5 r -^o,m?y-9,,!;AVL is t po i n i ui 2W> gen pai 

TRANl _ _ 

•"-4" "' ""' " ' "' " 

TRAN2-31,12,10,TFST FOR NF.J* 1ST PT OF TH 1 S_ 1 S T_ G_EN_ P_A_T_ 
TRSN1 ' " 

ST- 1 1 , TRAN2-2 1 , , SAVt FIRST POINT 



09014 49 08588 00000 
0V02I 

09022 14 12808 000J2 



ST-l,r.tAN2-ll" 

TRANl _ 

• -4"'" '~ " ' " 

ST-20.FG3X-9, .SAVE FIRST PT OF 3R0 GCN PAT _ 
Tft'AWl "" " 

T RANl,PFLAG!:ii.,H:^» »-0R 2^D GfcN l >A I r ~ 

TRIO ' _ 

«-2 " . 

. OTK AN StlfvRCUTINP COMPUTES OlFF TRANSFORMATION WHICH 
Pl.nlKAN.ij.lST T1HC SWITCH 

OUT 1 , UU1 ■ 



TjTrr 

TRAN2-31,1Z.10,TEST FOR NEW_ 1ST FOR 1ST GEN PAT 

01) Y 1 1 ? " '" : ~ 
rG2X-^, ST-2C _ 

OUT I , i'F LAG i. T , , T£5T FOR 3RD GCfl" P~K1 

1NPUT-40. 10,10. TE ST FOR PAT OPERATION 

TTOTT 



7T9074" "4~7" Off550~rjr3TJo~" 

09046 26 12900 1201B 

— BWiB 26 12910 12828 

09070 49 08588 00000 

-09577- ; 

09078 31 12891 13472 
©<JS90 49 0858S ^00000" 

09097 ' 
0909*8 44 08568 132 TO 

09110 49 08982 00000 

OTlTT -: — : 

LINKS 1ST GEN 

09132 44 0929 09349 

09144 M 69 349 oOodd 

09156 14 12808 000 J 2 

0"91^ 4X"09292 "01300" 

09180 31 13430 12891 

— mt?7.~*t 'tf9290~l J2W " 

09204 14 12032 O OOJO 

09216 A7 09290 01200 



TRAN3-31,12,10,N0 MEW ISJ PT FOP. JNT I RE PA T 
SHIFT " - --- - 
FG3X, TUAN3-21 

Fr,3V",TRAN?-n 

FG3X- >,FG?X-9, .RESET 1ST PT FOR PAT 



09228 14 12857 OO0J2 
W2TS0" 47" 092TS "01700" 
09252 26 13481 12867 
0«<54 26 I349T128TT 
092 76 42 0000 00000 

04277 " 

09278 31 13472 13430 
09?90""4"2"000"00~ 00000" 



Pi; i i n i. AiH i 

If 911 
17 910 

tfttr 



17 

if 
if 
1 1 
if 



01 



i *> 

920 
9?1 
922 

TTW1 
i f 9?i 

17 9?7 
17 9?v 
17 9?9 
17 929 

"TTW "~ 

17 9:io 
If 9i(V 

17 9 39 F Al) 
If 939 
17 9 39 
TT9 39 
17 939 
17 9 i'< 
17 9 39 
11 910 

i f 9 / « » 

"lT"9i(V 

17 9'i I 

.17 ■)',.' 

17 913 NEWT 

17 911 

17 915 

17911'. 

I f 91 a 

17 9 SO DfR AN? 

17 951 

17 95? 

17 95_3 

1 f 956 

If 95 7 

I 7 953 
17 959 

I I »60 nf2 

1 1 'f.l_ 

i r >'~,t, 

1 f 965 
1 f 96ft 



OflRG 

f r 

I' 

rr " 
I : 

i> 

urn;., 
iimi 



LOCN MP INSTRUCTIONS 



■ f 0? X » I i( AN ,'- j , , i'.l S I i isf Pi" 
M.,'Y, TRAM? J I 

' <T- 1 r,ni I :• -> i~ • 

SI - I , I " AM?- I I 

IR1. I " 

i AD,hi ,ol , i sr tlHfi swi fcii 

in. ; 

I HAN? - J I, 12,10, U ST FOR NfW fS T "RTTnT" 



09291 
09? 9? 
09 301 
'09 316" 
> 3?8 
09 310 
09 i'.7 
6) JIB 
09360 



26 0439 128 1 8 
26 13119 12828 
26 12900 iiaifi 
26 12910 12828 

19 6919;: ooooo 



l»Nt MI.WI _ 

us ii x <; x - 9, s T - To , 7 sTvF " 15 T P"T of NT xT IsT or n i> A f 
rr; • mx«;2x,fg;>x 



NXi.?Y,rt;/Y 



cm output-io, u,io, test fur i cooro 

I'SW if. 11 ' """ * 

m 

01KG »-lO ' ~ 



IrfTTT 

09 381 

Mi 

CI9108 

09126 

0913? 



M M" 918 6 
33 09318 



09111 
09156 
"09168 
09100 
0919? 
09501 



U 12808 
16 09580 
HI 31 51 
16 00169 
T"6 00445 
19 0102 
17. 00469 

16 00115 
19 0010? 

11 129I7 

17 09506 

12 OOOOO 



09318 
OOOOO 



oooJ? 

01 300 
12891 
-9113 
J3460 
J3139 



-9179 
J 31/0 
.13449 
000 J I 
61200 
OOOOO 



FA HUT PUT- 36, NX<i?X 
FA UUf PUT-26 ,NXii?Y 



IV J 

OORG 

rr 
tf 

Fl 



16 



NXC,?X,TRAN?-2l ,,SAVF NFW TRANSFORM 
NXG2Y, fRAN?-iV 
F All- 7.7 ___ 

"oorg *-'? 



CF 
CM 

BL 

"Tr — 

TF 

BF) 

DHRG 

CM 

PL 

Tf - 

TF 

1)0 



» DTRAN? SUBROUTINE COMPUTES 01 T F IRAN 1(1 I WF TN ?UfJ GIN PAr'j 

f>1,OTV<AN2,6, 1ST TtMf. SWITCH" 

DIRAN? 

rRAN«-)l,i?,tO 
1)1? 



ro3x7TRAN3-?i . , r;Avr nfw ?no gcn paT Tsr immnT" 

FG3Y , TR AN3- 1 I 
• -10 

f RAN?- VI ,12, 10 

DM 

FG3X,.TRAN?-?l,,SAVE NEW 1ST GEN START PUINI 
FG3Y, TRAN2-11 



09505 
09506 
095 1 8" 
09530 
09512 
09551 
69'-66 
095 78 
09579 
09580 
0959? 
_09601_ 
096T3 



09*614 Mi 
09626 33 
696.38 11 
09650 17 



16 00169 -9511 
16 66115 j2927 
19 00122 J 3160 
16 00169 -95 f 7* 
16 0011 5 J2937 
19 0012? J31*fO*" 
12 OOOOO OOOOO 

26 13160 12H18 
26 13170 12828 
19 091011 OOOOO 



09752 
09611 
12857 
09688 



09662 26 
09671 26 
09606 12 
09687 
09688 Ii 
09700 17 
097 12 26 
09721 26 
09736 12 



1318T 
13191 

OOOOO 



096(1 
OOOOO 
0OOJ2 

°I ,00 _ 
"12867 
12877 
OOOOO 



12808 000 J I 
0973P OUOO 
13181 12 8TF 
13191 12828 
OOOOO OOOOO 



PG LIN LABEL OP OPERANDS 



LOCN OP INSTRUCTIONS 



OORG »-10 

"Tr F¥3X'-97sT-2677T"raTRI ; ("rTOTuXIT Is i " Point of """at 

BR 

dorc .-to — - 

. BM P..._iy* ._- 

oorg «-io 

HNF 05,6itl 

CM fRAN3-31,l2,10 

Bl 1)6 

TF NXG3X, TRAN3-21, ,SAVE 1ST POINT OF NEXT 2ND GCN PAT 

TP TT5TG"5V^ T'R A"M"i'-TI " "~ "~ 

FS NXG3X,FG3X 



"Fs" MXC3V,F63Y 



09737 
09rj8 3l 
09 750 12 



09751 
09752 HI 
09 761 12 
09765 
<) "7"6 6 i i 
0977B 11 
6^*90 i* 
09C02 26 
098 1 i 26 
09026 16 
()9H Jfi 16 
09850 19 
09B62 16 
098 71 16 
69887. 19 
09898 33 
69916 14 
09922 17 
fl993i i? 
09935 

69936 IS 

09918 16 

09960 i*J 

09972 16 

TW9fti 16" 

09996 19 

16668 4? 
10009 

16610 14 

10022 47 

10031 26" 

10016 26 

166S8 49 
10065 

16666 31 

10078 19 

16695 



13172 12891 
OOOOO OOOOO 



09766 09752 
66666 06666 



CF D4C1 

ch " ouTpar-46, t rri6"nrTT tor ~"z~ ttjtjrd 

BNE »tl4 



099 1() 
1235 7 
"TMlO 
1350? 
13512 

00469 
00115 
0010? 
00169 
00445 
06462 
09753 
1291/ 
09936 

66666 



09f53 
O00J2 

oT.ioo 

121167 

1287/ 

-9861 

J 1502 

.13481 

-9H9T" 

.13512 

J3491 

OOOOO 

000 J 1 

01200 

66666 



BB 

OORG »-10 

FA TJOTFW-'T&TTTjilG-Jx" 



FA 



0U1 1'lll -?6,fJXG 3Y 



OflRG »-10 

CM TftAN2-31,T^;iO 
BL 08 



IF 

OORi 

TR 

B 



NX(',3X, TRAH^-2t 

NXG3Y,TRAN2-11 

D? 

•-4 

NX6JX-9,ST-26 
07 



66469 
00115 
66422 
00169 
66445 
00122 
66606 

12868 
10066 
TT502" 
13512 
69826 

13493 
09826 



-9971 
J2927 
J3502 
J0007 

3TSTT 

J3512 

60000 

000 J2. 

01_300 

I28T5~ 

12828 

60666 

12891 
OOOOO 



III 040 

ia on srco 

111 04] 
18 041 

18 042 

1H 013 
18 043 
IB 04 3 



OORG »66 

» SICO SUHRllUTINE - COMPUTES SINE AND COSINE OF ROT ANGLE 
F?1 RXUNV,S!CO-r " '' " 



TF 9,99, ,ANr,lb IN RADIANS 
■FSM lHilN.,9 ~ 



10696 16 
10108 26 

16120 44 
10132 26 
10144 16 
10156 16 

16168" 19" 



00469 
01260 
0126? 
00009 
T4~2T6~ 

I12SR 
1354H 



J6131 

13109 
J6695 
00099 

"JoTTT" 

J3129 

-6669 



5«& 



»>G L IN LABEL 0I» OPERANDS 



LOC N \__ OP J.NSTRUC ttONS 



18 044 
1>! 044 

tO 044 

Tfi o"/,t, 

III 046 

1 6 ?ou 

10 700 

in ?ol MfLLft 

tH ?0.-' 

"To 7U1 

in 704 

18 ;*()<. 

18 znn 

1« ?lo 

in m 

"TlTTtt 

t8 216 

to Ml ' 

18 220 

lo m 

18 72'. 
18 27.0 

18 7. Jo 

18 2 37 
lH 2 34 
18 2 36 

"T§""2Tn 

18 7 40 f-12 
18 242 
18 2 44 
111 74f> 

18 24 8 

18 ?5o" 
18 2 52 A()RS 
18 2 5. '■ 
18 2Sf, 
10 258 

18 260 

Tb _ 767 
18 7 64 
18 764 
tB 264 
lB 766 

IB 2ft H 

" 18 2 70 
1R 272 
10 2 74 



FCOS IHCPS,9 



TT 

15(1 

hnkii' 
IW 
TiT 



TTTTTT 



lOlBO 

10192" ~ 

10204 



* millr subroutine performs inversions for 

nnr ,2o,?",TEsT rm met or TAcrwrir """' 

FACT 



tJ0tpUI-4 , t»Alb-47.,,N , fcxT POt»Jf fo oUrfrUf dUFTfeR 

PTCNT, 1*10, INDEX POINTER BACKWARDS 

■ •-t7,ncfTnii 

PrCNT,l,10 

"T1t."«fR¥7rfETr"nW""SRT"0a" SPFf" " 

AII)-42 t PtCNT,lt,THIS POINT TO MIX BUFF 



ToTlT 

„ t()228 

T023T 
MJ L L_I N G_OP E R AT_1 ON S 

162 36 
10248 



16 14270 J0219 
49 13 516 -0009 

3T 



3267 00000 
42 00000 00000 



14 121 jo 
46 10 980 

TTT: 



01 100 

TJoTT" 

000-1 

um~ 

000- 1 

twit 

121BK 

ftbflOd 



SM 
\\M 
AM 
fiKIF 
TR 

15 

Dime. 
Tr ' 

CM 

tit 

BP 

"TP 

B 

DElRG 

sr 

TR ' 

«»■ 



OUTI'HT-?T'"tT , lcTim i i 1ST pTiTNT TTJ IIUTPOT TiOFT - " 
UUTPUT-46,26. tOtTESX fW j OOTO^W STOP 

• f.32. MUTPUT-'.»0,,TEST FOR GOTO OR STOP 



10260 
10272 
T0284 
10296 
"1530-8 
10320 



MtlREV' 
• C20 

«-"4 " ' '"" ' ' ' _ 

N0REVC1 

our pijt-31 ;ninwr-4iv7tf-.n " sin ft t xmmmr 



T6TJT 

10339 
~16546 
10352 
T?)364 
10376 
10388 

SU400 
0497 
10406 

mio 

t0432 
10433 

10434 
" Io446 

10458 
T6" 4 'to' 

10471 

10472 

10484 
T(>496 

10508 

"loSSo" 
10532 



29lT 
12 121*2 
45 162 72 
It 12182 
4T 16346" 
3113012 
"4TT548T 



n wis mwc 

14 12917 O0OK6 

41 16414 6130TT 
43 10408 12913 
32 U8688 6666d 

49 10420 gogog 

32 08689 OOOOO 

'snwii Tifir 

42 OOOOO OOOOO 



•-id 

llUTPUT-46, 14,10, SLOPE OR ARC CHECK 

• 626 ""'" 

PtCNT.1,10 



OORG 
CM 

Snl . 

SM 

tifi" 
DURE, 



14 12917 000J4 

46 ToVtz' "6l"i3S~ 

12 12182 000-1 
42 6OO60 00005 



176 



,Ani<S,,WAS Ust PUlNI A SLOPE OR AN AKC 
OUTPUT- 36, A|D^3t , ,X_AND V TO OUTPUT BUPF 
oUTp"ut"-2~6, aTd-21" " " "' 
OUTPUT-46, 16,10, WAS LAST Pt A SLOPE 

MFADtift "" 

OUTPUT-21, 53360,, TEST SIZE OF ANGLE 



44 10924 
26 12927 
26 1293T 
14 12917 
4f 16t32" 
14 12942 
4t 10600 
16 00469 
16 00445 
49 00402 
49 10532 



10434 

13023 

13653" 

000J6 

01208" 

N3360 

01300 

J0'i9t 

J3399_ 
OOOOO 



IJNE 
TF 

TF 
CM 
6ne 
CH 

~w~ 

FS 



H 

oom; 

Tnr 



OUTPUT- 16,0360 



»-f.0 
•-4 



10544 
10556 
T0568 
10580 
"10592 
10599 



HF ADT. J5«090 10600 16 10731 J3369 

TPM MFAOE 30, 00422 10612 16 10726 -0422 

CM OUfpllf-2l,5j2r6,VfEST"FOR ANGLE 5RF At ER THAN 270 DECREES 1 062 4 14 12942 N3270" 



PG LIN lai>:l OP 



LOCN OP INSTRUCTIONS 



1U ?76 

l» 2 Ml 

18 280 IV, 

MiHW? 

18 784 

1« 186 HF All 

in in<> 

lH Ift'i 

18 28 7 



HMH H3_ ■_ 

Tr'M M'F'Aneio", (50402 

CM MILLR-l,32,(>tO,trST FOR INVERT RH'.hT 



FFM MFADfi 35,0270 

f A rilirPUT-l6,0'To 



106/2 
10684 
10696 
10708 
10720 
10732 



47 10696 
16 10731 

16" 05469 

16 00445 
49 5042? 
14 13013 



01200 

J33B9 

JB731 

J2947 

JT369" 

000J4 



CM 



AIO-41, 14, 10, TEST FOR CM ARC 



10/44 
10756 
1076B 
10780 
10795 
10799 



47 10780 
14 13013 
47 10458 
33 10484 
49 164 58 



61300 
00OK6 
OlJO'O 
OOOOO 
60OO6" 



Tfi ;»8n 

1H 2 89 

1H 290 

18 191 

1« 292 

IB 293 

"In 294 "HT" 

18 295 

18 296 

lfl 293 

lil 30() 

in ^02 

In "»04 

IK 3(.!f, 

lit 3hh 

10 310 M!i 



~W *TW 

CM AIO-41, 26, 10, TEST F0R_G0Tn OR SKIP 
HL " fiZM " _ " 

CE AOKS,,, RESIT ARC OR SLOPE SWITCH 
8 "M2E.24 "~ '"^ 
DORG »-4 



TTT HU r i*0T-2r, ,, .?9/)O,7,ttS f Pttrt ANtiH Lf:SS luAN 96 bru 

RL M4 

Cfl " ; ""lWTP0T-?r,''j31H"e",7, TrsT TTiR SNCir CRCATEK THAN ISO Vtt 
no ms 

CM ' H I LL A- 1 , <2 ,'6 Vi)',' TJrST' TNVERT " ft I GlIT OR LEFT " 
HE MF AD 



108(56 
10812 
10824 
10836 

To WO 

10860 



14 12*42 
47 10660 
14 12942 
46 10892 
14 1023N 
46 10696 
16 10726 



TI5W 

01300 
N3110 
01100 
00012 
01200 
-6402 



18 
18 



3 1 1' 
»14 

lil il» 

18 31H Mfa 
3?0 
i.?2 
324 



18 
1.1 
in 



"TFFT" 
B 

CM 

UE 
B 



MFAnf.'io,oty4b"2 

MF AD _ . _ 

MILLR-1,34, 610, TEST FOR INVERT UP OR DOWN 

HF AO ' ' " 

M5-20 



TW7T 

10884 
10891 
10892 
10904 
10916 



49 10696 OOOOO 

14 1023N 000L4 
46 16696 01200 
49 10872 OOOOO 



18 32.-. _ 

18 3'2n . 

IB 320 FACE 

lil 322 

lit .124 

18 326 

lb 328 

i«"33(r" - 

18 3 37 

18 332 

18 33 3 

18 3*4 

18 3 3'i 

T«" - 3TA" 

l.l 33/ 

It) 33n 



BTTKir 

SF 

TR 

TR 

TEH 

I, 

EniuT 
w.tr- 
Tr 
cr 

B'V 

OORG 

— TIE 
ti 

AM 
I5MR 
AM 
!•< 



•-/, 

AORS,,,SET ARC OR SLOPE SWITCH 
AlO-4,-,0uTrlir-47,,NEXT PT TO AUX (UjEF 
OUTPUT-25, AUXIN,, SET C.I>flTRUL REC MARK 
OUlf , lll-46,12,iO,SE t COORD CODE 
M2f.?4 



~IW3" 
10924 
10936 
10948 
10 960 
10972 



• 1.38,1 ACE, , TEST EtlR FACT MILL 
CjllTPU!-47,AlD-42,, IhIS I'OINI TO OUTPUT iiuFF 
FACE 



• -IU 

A-Th-4 ,\UUf*n)l-4 7 ,,sn iri Tfl AuX'"hufP 

NC0ill'9f.6 
•3,1,10 

• -12. 9,'U, INDEX ISI GEN POINTER 
9,1, Id 

OUTIMIT-47.9.11 .NEXT POINT TO OUTPUT BUFF 



109/9 
10980 
10992 
11004 
11016 
11017 



32 10484 OOOOO 
31 13012 12916 
31 12930 12104 
16 12917 666J2 
49 10450 OOOOO 



44 11018 10980 
31 12916 13012 
33 10980 OOOOO 
42 OOOOO OOOOO 



11616 

110 30 
11042 
11054 
11 066 
110/8 



"TFTi! — ?!-•(,, UO-70,, Wit F'M n'-Mu 

U •f.'i'. 

I.ni: v. »-4 '" " 



Trow 

11102 
11109 



il 13012 
26 00009 
11 00009 
45 11047 
11 00009 
31 12916 
4 ; '» 111 10 
49 11158 



12916 
11414 
OoO-l 
0000R 
000-1 
OOOOR 



I30i4 
OOOOO 



5 6 



IV, I I ?! I. AH' I. 

lH 3 17 
Ift i',0 

IB 341 

T&~ 3'»2 ' 
10 34 1 
1« 344 

18 345 

1 6 i'fd plung 
16 171 M LSSIV 
1 6 17? rtTsiiii" 
16 in 
1 6 in 
lb i n 
lf> in 

to 17? 

"TFTTfl ~ 

1ft 179 

i§ oio 

j.9 014 
It 020 

~tn»25 

1 9 O K) 

U or, 

(9 040 
|9 04 5 

1<) •"•••) 



IK 

fii 

», t 

■:-i< 
liUK-j 

it f H 

pac 

WM Y 

M 

t< 

MM 

IR 

w~- 

n 



III" I' 'u)l)'> 

riuu'ni- ,".,aiii--20, ,'shift ocimii in im 
A i n- ;'o , Aiixii, , ;< r ci'iN'r.iiiL ft i'c mark 
Aji»-4i,2,».juiAs«cr. ctiDi'o c ooks 

"Tiff. ruT ~4 6~t 
'Ai.' 

i jr-.nn, 7ioo,n" "" " "" 

3,. 



Lflf.N OP INSTRUCTIONS 



«-l .AUXIN 

, , , fMiSH sFAkT ro coN'iTWr 

OUT Ptll-4 7, 1MPUI-47 

i' i i j , , , iio t p" f ff Tii 1 3 r r f, ' 

I NI MH , AUXIN 

''Mi I I'll) , AUXll 



NEXT 

• sunKimriNt. sp-storcs variable rcc in pat i A*iL» 

P F AT , • -' t ,6lT,~S f ORE" ""t'HTS RCCaRO fN PA" f f CRN I Af.Lt 

PI AP, 1,10 . 

PFLAGM ,1,10 



Tr 

AM 



uuo 

M 134 

TTT46~ 

111 *>« 

I i i 70 
111 71 

II 17? 
1 1 1 35 

TTPJo- 

1 120? 
11214 
11226 

li?Jn 

11250 

imr 

11274 

li.il 

ll?flH 
l i « oo 



31 12918 13034 

3 1 136J4 rioir 

IS 13013 00002 
13 12917 00003 

32 10980 00000 

42 '"oodtfo 60606 



XX 



1/ UH6 
j 

39 11185 

4b dodoo" 

31 12916 

11 IU'84' 
31 12072 
31 12943 
49 01700 00000 



0P400 
3,E . 

T5ToT" 

00100 

bbdob 

12025 

-dobo" 

12104 

HoTT 



lv <■(,(> 

1 9 >6<' 

19 "65 PATC-X 
1«) 120 

20 70i_ 

2o o jo PAiurr 

20 040 CI1MP7 

20 O'.li 

20 DWI 

20 06? 

20 70 

20 OHO" 

20 090 APD9 

20 10(1 

21 01? 
? I Oil 

? i 040 op_y_r 

?i iVfVr""" 

2 I 01 7 

21 oin 



CM 
iVm 

BN« 
1)11 

ODRG 

— 

fl 

1)0 KG 
BTM 

PORC 



c 

iiNi 
llli 
1)111' I 

IF 



PIAP.,l>979,7,tCST FOR END OF PAT STOKAGf 
•614.5P-I, 11 

»-10 ' 

SP-l", I, 10, I'Milf X LENGIH DF REC POINll.K 

sit. I? 

«--4 ' 

F.rf-SUn, 7300 t «',ALLOW.MII.l: PAf STORAGE L <LT ll)l":l) 

»>-.? 

* swit'Wjrm p ati uc-;cans pa t r a tu .;. i_o i.ucai; 

' C0MP7ir(i',C.Nflt 79'., ,PI SI' t 10 STAR I "(II "PAI TAMlX"' 

ooooo , pa i lmc- i , , if s r for pai no 

• r. i'. " 



pat id hi 



11312 
1 1 324 
Tl 3 3* 

I 1 )4M 
11360 
11)61 

TTTST 

11)74 

I I 381 
11 3fl2 
ri37'i 

nuipoi 
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GENERAL RAY TRACE PROGRAM 

This program is based upon a paper by Gordon H c Spencer titled "A General Ray 
Tracing Procedure" , IBM Research Paper RC-5U9© Spencer 1 s paper applies, with 
a few extensions, to the problem of tracing a light ray thru surfaces which may 
be rotationally symmetric, cylindrical, or conic and may have arbitrary orientations 
with respect to a reference system* Certain adjustments and additions have been 
included in the program* This paper does not attempt to delve deeply into the 
mathematics behind the program* It is felt that a brief description of some of 
its advantageous points along with a sample ray trace problem would be of more 
interest* The sample will attempt to illustrate the value of the program as an 
optics system evaluation. tool* 

In general, surfaces are described in a local coordinate system* This local system 
is then positioned in the optical system thru translation and rotation of the local 
system in relation to the basic coordinate system* It is thereBy possible to 
position surfaces off the optical axis and "tilted" to the desired degree* 

One feature the program possesses which is not common to some other ray trace 

programs is the capability to trace rays thru cylinders and prisms* These types 

of lenses are fairly common in modern optics systems making this an important feature» 

The basic surface equation suggested by Spencer which is used in the program is: 

f(x, y, z) = ax 2 ♦ m 2 + cz 2 + z * o* 

This represents the surface obtained by revolving a conic section with vertex at 
the origin about the Z axis In general, a ray intersects such surfaces at two 
points* By using vertex equations set up so that the first iteration point lies 
on the plane Z = o thru the vertex, the iteration starts closer to the desired 
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intersection point than to the extraneous point 

For cylinders with conic cross«section in the XZ plane, the surface equation becomes: 

F b AX 2 ♦ CZ 2 ♦ Z * 
The rulings of this cylinder are parallel to the Y axis A similar equation will 
describe a cylinder with rulings parallel to the X axis 

The equation: 



describes a cone with apex at the origin with the Y axis as the principal axis* 
Cross-sections parallel to the XZ plane are ellipses This equation may be rewritten 
in the form: 



F = Z + D VEX* + Y c =0 

To iterate with this equation, the following rule holds: 
Z > f or D < 
Z Z for D ^ 

Therefore it is possible to represent three types of surfaces with the single equation 



+ Z 



2 



UY) 2 



(bY) 2 



= 1 




F » AX 2 + BY 2 + CZ ♦ Z ♦ D ~VEX' 




= 



The constants A, B, C, D, and E are program input data* 
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GENERAL RAY TRACE 



INPUT 



A header card and 3 cards for each surface are required input* Ray information 
may be entered in 2 ways, either one ray per card or as a fan of rays. To enter 
single rays, switch No. 1 must be on c 



CODE HEADER CARD: 



REFR (l) Cols. 1-11 Initial index of refraction (may appear anywhere in Cols 1 - 11) « 

# 

Ex . « If the initial medium is air, the number 1*0 can be 
punched in Cols, 1 - 3© 
Col. 12 Blank 

NOSUR ColSo 13-11* Number of surfaces If the number of surfaces is 9 or less, 

puneh it in Col. ll* and leave Col« 13 blank. 

TOL Cols. 15-29 Iteration tolerance in form ♦ O.IOOOOOOOE-YY. This number is 

used to establish a criterion for convergence of the iteration 
process. Convergence is assumed when the increment magnitude 
is less than the tolerance. It is recommended that 40.10000000E-06 
(.IX 10*"^ * 10*^) be used, as only 8 places are carried in 
computation. It may sometimes be necessary to relax the 
tolerance to ♦ 0.10000000E-0S, either to obtain convergence 
or to speed up the program. 
Cols. 30 - 80 Blank 
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SURFACE CARDS: 



XO(I) 



10(1) 
Z0(I) 
Alpha(l) 
Beta(l) 



Card Ax 



Col, 1-11 X - coordinate of origin of local system, punched 

in same *asMdM as the initial index of refraction 

on the header card* 
Cols. 12-22 Y - coordinate of origin of local system, punched in 

same fashion as X - coordinate 
Cols* 23- 33 Z - coordinate of origin of local system, punched in 

same fashion as X - coordinate * 
Cols* 3k - lilt I axis euler angle ((X) in decimal degrees, punched in 

same fashion as X - coordinate • 
Cols* 1*5 * 55 X axis euler angle (^S) in decimal degrees, punched in 

same fashion as X - coordinate 
ColSo 56 - 66 Z axis euler angle (^} in decimal degrees, punched in 

same fashion as X - coordinate* 
Cols. 67 - 77 Blank* 

Cols* 78 - 80 It is suggested, but not required, that the surface cards 
be punched 01A, GIB, 01C, 02 A, 02B, etc*, in Cols. 78 - 80 
to ensure that t hey are kept in the correct order* 



Card B: 



B(I) 
C(I) 
D(I) 



The first five fields give the coefficients in the surface equation 

P ■ AX* ♦ BY* ♦ CZ 2 ♦ Z > D EX* ♦ Y* * 0, as follows: 

Cols* 1 - 13, A (punched in same fashion as X - coordinate on Card A) 

Cols* 12 - 2%3 (punched in same fashion as A)* 

Cols* 23 - 33P (punched in same fashion as A). 

Cols* 3k - hhp (punched in same fashion as A)* 

Cols* Ii5 - 5$E (punched in same fashion as A)* 
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Refr(l) 



Colso 56 - 66 Index of refraction of medium following the surface, except 
in the case of reflection, when the negative of the index 
of refraction for the previous surface is usedo (Field is 
punched in same fashion as A) 

Colso 67 - 77 Blank 

Cols. 78 - 80 May be punched as suggested for Card A* 



Card C: 



AP1(I) 



AP2(I) 



AP3(D 



APU(I) 



APS(I) 



Cols* 1-11 X - coordinate of center of circular-annular aperture or 
coordinate of center of hyperbolic aperture or X lower 
bound of base of rectangular- trapezoidal aperture 

Cols, 12-22 Y - coordinate of center of circular-annular aperture or 

coordinate of center of hyperbolic aperture or X upper bound 
of base of rectangular- trapezoidal aperture 

Cols* 23 - 33 Inner radius of circular-annular aperture or length of 
semi-major axis of hyperbolic aperture or Y lower bound 
for rectangular-trapezoidal aperture * 

Cols* 3k - hk Outer radius of circular-annular aperture or length of 
semi-minor axis of hyperbolic aperture or Y upper bound 
for rectangular-trapezoidal aperture 

Cols, US - 55 Y lower bound for hyperbolic aperture or reciprocal 
slope of left hand side of rectangular-trapezoidal 
aperture* Enter t for c ircular-annular aperture o 
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NAP(I) 



NOUT(I) 



XA 
YA 
ZA 

RPAR 1 
RPAR 2 
RPAR 3 



Cols* $6-66 Y upper bound for hyperbolic aperture or reciprocal 
slope of right hand side of reetanular- trapezoidal 
aperture o Enter O^for circular-annular aperture.. 
Cols* 6? Blank 
Colo 68 Aperture code 

Blank: circular * annular 

1: rectangular- trapezoidal 

2 : hyperbolic 

Col„ 69 Blank 

Col, 70 Output code 

Blank: no output at surface 

1: output at surface 

Cols. 71 - 77 Blank 

RAY INPUT (Single ray per card, switch 1 on) 

One record, either typed or punched, is used for each ray. NOTE: Coordinate* 
with a bar over them are system coordinates « Those without a bar are local 
coordinates. 

Cols., 1-11 X - coordinate of 1st point on ray. 
Colso 12-22 Y - coordinate of 1st point on ray. 
Cols. 23-33 2 • coordinate of 1st point on ray. 
Cols. 3k - bh X - coordinate of 2nd point on ray. 

or X direction cosine of ray at 1st point. 
Cols. U5 - 55 Y* - coordinate of 2nd point on ray 

or Y direction cosine of ray at 1st point 
Cols. 56-66 "Z - coordinate of 2nd point on ray 

or "2 direction cosine of ray at 1st point. 
Col. 67 Blank r 2 j 
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NIN Colo 68 Input code 

Blank: 2 points 

1: 1 point and direction cosine 

Colo 69 Blank 
NAXIN Colo 70 Optical axis intersection computation code 

Blank: bypass computation of intersection of image ray 

with optical axis 
1: Perform above computation 

IRAY Cols* 71 - 73 Ray identification number (right justified) 

Cols, lh - 80 Blank* 

RAY INPUT (Fans of rays on 2 cards) 
Card 1 

Colso 1-11 FXU1, the maximum X coordinate at the 1st pointo 

Cols« 12 - 22 FZ1, the Z coordinate at the 1st pointo 

Cols 23 - 33 XGAP1, the X* spacing between fans at 1st point. 

Cols* 3U - UU FX02, the maximum X coordinate of each fan at the 2nd pointo 

Cols, 16 - 5>5 FZ2, the t coordinate at the 2nd point* 

Cols* $6 - 66 XGAP2, the X spacing between rays at the 2nd point* 
Card 2 

Cols* 1 - 11 FYU2, the maximum 1 coordinate at the 2nd point* 

Cols. 12 - 22 YGAP2, the ? spacing between rays at the 2nd point* 
NOTE*, All fans are assumed to originate at I * at the 1st point* 
The following sample ray trace problem will better illustrate the useage of the 

program* The surface system to be traced is as follows: 



522 



OBJECT 



SURFACE #1 
SURFACE #2 
SURFACE #3 



SURFACE #4 



SURF 05 



SURF #6 



IMAGE 






NOT TO SCALE 



.500 }«•- 



-•-2.000 -*| 



▼ 

z 



0.0000 



3.0000 
3.5000 
3.8525 

4.3525 

4.8525 
4.9525 




6.0000 

6.5000 
6.7500 




8.0000 - 



R = 1.15 



V R = . 



85 



.500 



•ELLIPTICAL 
LENS 



*- 1.000 -*"| 



FIGURE - SAMPLE RAY TRACE SYSTEM 
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DATA INPUT TO GENERAL RAY TRACE 
PROGRAM FOR SAMPLE PROBLEM 



SURFACE DATA 



SURFACES 1 & 2 



These are both spherical surfaces* The surface equation becomes: 

F = AX 2 ♦ BY 2 ♦ CZ 2 ♦ Z * 

= — X 2 ♦ — Y 2 Z 2 ♦ Z * 

2 R 2 R 2 R 

* - «U3S X 2 - oU35 Y 2 - oU35 Z 2 ♦ Z « (Surface #l) 

« o588 X 2 ♦ o588 Y 2 ♦ ,588 Z 2 ♦ Z = (Surface #2) 
These are not cones o Therefore D = E « 

The vertex planes for these surfaces are perpendicular to the Z (optical) 
axiSo Therefore (X > fef and Y are zepo * 

The vertex coordinates are: 

Surface #1 (0, 0, 3*00) 

Surface #2 (0, 0, 3.50) 

The index of refraction following Surface #1 is 1.523, that following Surface 
#2 is l.OOo 

The apertature on both surfaces is a circle of 0©£ inches diameter* 
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Both surfaces are planes arranged to constitute a prism* The first, No 3, 
is arranged so that rays are deflected in the negative X direction. The 
second surface, No e h, is perpendicular to the optic axis* 

The surface equation for both surfaces is: 
F = Z = 

A=B = C= D= E = 
Surface No 3 is rotated l£ degrees when positioned in the system To 
accomplish this rotation, it is necessary to specify the angle alpha equal 
to ii^ degree So The rotation angles, alpha, beta, and gamma are defined: 




525 
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The specified apertature is a square 1" x 1". Therefore the minimum and maximum 
allowable x and y values are (0,5, o 5) and (-0.5, 0.5) respectively* These 
values apply to the surfaces before rotation After rotation of surface Noo 3, 
the actual minimum and maximum x apertature values will be corrected by the 
program to (-0.5/ VT, 0,5/ Yi). AP$ and AP6 are the inverse slopes of the 
left and right edges of the apertature as viewed from the object point (positive 
Y up) e In the sample, these slopes are reciprocal infinity or zero NAP is set 
equal to 1 to specify a rectangular apertature,, NOUT is set equal to 1 to obtain 
output data at the surfaces* The index of refraction of the prism is 1*6* 

Sur fa ce 5 & 6 

Surface $ is an elliptical cylinder Surface 6 is a simple plane with input 
similar to surface No* b* The equation of the ellipse in the YZ plane is: 

l! + 2! « 1 a = 1 b = 0*5 

a b 

The surface equation, adjusted so that the origin is at the point nearest the 
object point, is: 

F = -0*2$ Y 2 - Z 2 + Z = 

Therefore A=D = E = 0, B = -0*25, C = -1*00* Note that surface 
Noo 5 is a cylinder with rulings in the X direction If it had been desired 
to translate this surface off the optic axis in the Y direction, then Y0 would 
be specified accordingly* 

This program was originally written by William Webb of Goodyear Aerospace 
Corporation, Akron, Ohio and to that gentlemen goes the credit for this signifi- 
cant contribution to the lens designers kit of tools* The program has been 
altered slightly to suit current needs and is being maintained by the writer,, 



SAMPLE PROBLEM DATA INPUT 

SAMPLF PROBLEM* PROGRAM NO. 143A-63* 12/02/63 
1.0 7+0.10000000E-06 



0»0 


0.0 


3.0 


0.0 


0.0 


0.0 




1A 


-.435 


-.435 


-•435 


0.0 


0.0 


U523 




IB 


0.0 


0.0 


0.0 


0.5 


0*0 


0.0 


1 


1C 


0. 


0. 


3.5 


0«0 


0*0 


0.0 




2A 


0.588 


0.588 


0.588 


0*0 


0.0 


1*0 




2B 


0.0 


0«0 


0.0 


0.5 


0.0 


0.0 


1 


2C 


0.0 


0*0 


4.3525 


-45.<?t 


0*0 


0.0 




3A 


0.0 


0.0 


0.0 


0.0 


0.0 


1.6 




3B 


-0.5 


0,5 


-0.5 


0.5 


0»0 


0*0 


1 1 


3C 


0.0 


0*0 


4.9525 


0.0 


0.0 


0*0 




4A 


0.0 


0.0 


0.0 


0.0 


0*0 


U0 




4B 


-0.5 


0.5 


-0.5 


0.5 


0*0 


0.0 


1 1 


4C 


<*» 


0*0 


6.0 


0.0 


0.0 


0*0 




5A 


0.0 


-0.25 


-1.0 


0.0 


0.0 


1*5 




5B 


-2.0 


2.0 


-1.0 


1.0 


0.0 


0.0 


1 1 


5C 


01 01 
W. V} 


Ot 01 

K7.I0 


© • 73 


0*0 




0.0 




6A 


0.0 


0*0 


0.0 


0*0 


0*0 


1*0 




6B 


-2*0 


2*0 


-1.0 


1.0 


0.0 


0.0 


1 1 


6C 


0.0 


0.0 


6.0 


0.0 


0*0 


0*0 




7A 


0»0 


0.0 


0.0 


0.0 


0.0 


1.0 




7B 


0.0 


0.0 


0.0 


10*0 


0*0 


0.0 


1 


7C 


0*1 


0.0 


0*1 


0*3 


3*0 


0*3 
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SAMP IE PROBLEM DATA OUTPUT 

SAMPLE PROBLEM* PROGRAM NO. 143A-63* 12/02/63 

RAY SURF OBJ PT 2D PT/DC 



INT PT 
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DIR COS 



1 


X 


OR 


K 


• 10000 


•30000 


•30563 


-.05589 




Y 


OR 


L 


• 00000 


#30000 


•30652 


-.03509 




2 


OR 


M 


• 00000 


3 #00000 


3*08521 


.99781 


2 


X 


OR 


K 


• 10000 


• 30000 


•28848 


-.32813 




Y 


OR 


L 


* 00000 


« 30000 


•29772 


-.30423 




Z 


OR 


M 


4 00000 


3*00000 


3*39209 


.89429 


3 


X 


OR 


K 


♦ 10000 


•30000 


-•04675 


-•49435 




Y 


OR 


L 


* 00000 


•30000 


-•01308 


-•19014 




Z 


OR 


M 


♦00000 


3 #00000 


4.30574 


•84820 


4 


X 


OR 


K 


• 10000 


•30000 


-•42369 


-•79097 




Y 


OR 


L 


• 00000 


•30000 


-.15807 


-•30423 




Z 


OR 


M 


•00000 


3 • 00000 


4 # 95250 


•53085 


5 NO INCIDENCE 
















1 


X 


OR 


K 


• 10000 


•00000 


-•00136 


-•02133 




Y 


OR 


L 


♦00000 


•30000 


•30409 


- # 0297l 




Z 


OR 


M 


•00000 


3*00000 


3 • 04095 


•99933 


2 


X 


OR 


K 


• 10000 


•00000 


- .01006 


-♦02552 




Y 


OR 


L 


•00000 


• 30000 


•29198 


-•24762 




Z 


OR 


M 


•00000 


3*00000 


3.44823 


•96851 


3 


X 


OR 


K 


• 10000 


•00000 


-♦03302 


-•33870 




Y 


OR 


L 


•00000 


•30000 


•06923 


-.15476 




Z 


OR 


M 


•00000 


3*00000 


4.31947 


•92807 


4 


X 


OR 


K 


•10000 


•00000 


-.26404 


-.54192 




Y 


OR 


L 


•00000 


•30000 


-•03633 


-.24762 




Z 


OR 


M 


•00000 


3*00000 


4*95250 


.80311 


5 


X 


OR 


K 


• 10000 


•00000 


-•99486 


-.36128 




Y 


OR 


L 


• 00000 


•30000 


-•37026 


-•08675 




Z 


OR 


M 


•00000 


3*00000 


6*03553 


.92840 


6 


X 


OR 


K 


•10000 


•00000 


-1.27289 


-•54192 




Y 


OR 


L 


•00000 


• 30000 


-.43702 


-•13013 




Z 


OR 


M 


•00000 


3*00000 


6 • 75000 


•83028 


7 


X 


OR 


K 


• 10000 


•00000 


-2*08877 


-.54192 




Y 


OR 


L 


• 00000 


•30000 


-•63295 


-•13013 




z 


OR 


M 


•00000 


3 • 00000 


8 #00000 


.83028 



2 NO INT W/OPT AX 



3 


1 


X 


OR 


K 


• 10000 


-•30000 


-•31159 


•01673 






Y 


OR 


L 


♦00000 


•30000 


•30869 


-•03736 






Z 


OR 


M 


.00000 


3 • 00000 


3.08697 


♦99916 


3 


2 


X 


OR 


K 


•10000 


-•30000 


-•30660 


♦28045 






Y 


OR 


L 


•00000 


•30000 


.29755 


-•30434 






Z 


OR 


M 


♦00000 


3«00000 


3 « 38486 


•91034 


3 


3 


X 


OR 


K 


♦10000 


-♦30000 


-•01229 


-•21390 






Y 


OR 


L 


•00000 


« 30000 


-•02183 


-.19021 






Z 


OR 


M 


•00000 


3 • 00000 


4.34020 


•95815 


3 


4 


X 


OR 


K 


•10900 


-•30000 


-•14898 


-.34225 






Y 


OR 


L 


•00000 


•30000 


-•14338 


-♦30434 






Z 


OR 


M 


•00000 


3 • £10000 


4.95250 


•88895 


3 


5 


X 


OR 


K 


.10000 


-•30000 


-•58127 


-.22816 






Y 


OR 


L 


•00000 


•30000 


-.52780 


-•08569 






Z 


OR 


M 


•00000 


3 • 00000 


6.07531 


•96984 


3 


6 


X 


OR 


K 


•10000 


-♦30000 


-•74000 


-•34225 



528 



- lU - 



NO INT W/OPT AX 



APERTURE STOP 



NO INT W/OPT AX 



6 1 



6 2 



6 3 



6 4 



6 5 



v 

T 


UK 


• 

L 




7 


no 


M 


.00000 


* 

A 






•10000 


y 


OR 




a 00000 

• KiT Ifc* «V nv 


7 

r 


ftp 


PI 


« 00000 


A 


OP 

vrrv 




a 000001 


V 

T 


OR 


1 


_ 01010100 


7 


V/T\ 






v 

A 


OP 




* ICmC/ic'IOIO 


Y 


OR 




#00000 


Z 


OR 




• 00000 


y 

A 






01014910101 


v 

T 


OP 


i 


— 0101000 


7 


OP 


M 


i 0)0)0)00 


¥ 
A 


OR 




_ 0)0|0t0I£W 


Y 


OR 


r 


_ 0I0I000I 


7 


OR 


M 


* 010000 


V 


OP 


IN 


. 00000 


Y 


OR 


1 


•k 00000 


7 


OR 


M 


0|000ffl 


A 


ftp 


r 

TV 


^ 00000 


Y 


OR 


• 

w 


* 00000 


» 
•> 


OR 


M 




Y 


OR 




^ 00000 


Y 


OR 


t 


.00000 


7 


OR 


M 


a 00000 


x 


OR 




a 00000 


Y 


OR 


(_ 


. 00000 


Z 


OR 


M 




x 


OR 




a 0010100 


Y 


OR 


L 






OR 


M 


A 00WI00 


X 


OR 


K 


•00000 


Y 


OR 


t 


^ 00000 


7 


OP 


M 




Y 


OP 




M 01010010 


y 


OP 


1 

U 




7 

t 


OR 


M 


a 00000 


y 

A 


UK 


K. 


AHI0IOM9I 


v 

T 


OP 


I 

L> 


• YJxjyiyyVi 


7 


OP 


M 




Y 

A 


OP 


if 




V 

T 


OP 


1 

L. 


> 00000 

• ICnC/IC'lK'SM 


7 


OP 

v/rv 


M 


a 000100 

# iCK'if'C'iv 


Y 

A 


OR 


r 


— 00000 


Y 


OR 


t 


*00000 


Z 


OR 


M 


* 00000 


X 


OR 


K 


»00000 


Y 


OR 


L 


#00000 


2 


OR 


M 


•00000 


X 


OR 


K 


•00000 


Y 


OR 


I 


•00000 



3400000 

•30000 
3 ♦00000 



•30000 
* 30000 

3 •00000 
•30000 
•30000 

3 •00000 
•30000 
♦30000 

3 §00000 
•30000 
•30000 

3*00000 

#00000 
•30000 

3 • 00000 
♦00000 
•30000 

3 •00000 
•00000 
,• 30000 

3 ♦ 00000 
•00000 
•30000 

3»00000 



•30000 
3 ♦00000 
•00000 
•30000 
3 #00000 
•00000 
♦30000 
3*00000 



-•30000 

♦30000 
3 • 00000 
-•30000 

•30000 
3*00000 
••30000 

•30000 
3*00000 
*»• 30000 

• 30000 
3*00000 
-•30000 

•30000 



6 •75000 

•1 

♦-•>?60 fl 4§ 
• 00000 



•30860 
•30860 
3*08608 

•29766 
•297*6 
3*38849 

-.02026 
-•02026 
♦•33223 
-♦36928 
-•1380$ 
4495250 

•00000 
•30409 
3«04*93 
♦00000 
•29201 
3«44826 
•00000 
•06101 
4.3S250 
-•21030 
-♦03853 
4 f 95250 
-•90414 
-•36698 
6*03488 
►1*17128 
-•43459 
6 • 73000 
•1 .94745 
-♦63101 
6 « 00000 



-•30860 
• 30860 
3*08608 
-•29766 
•29766 
3.38849 
•04085 
-•04085 
4 •39335 
-•07893 
-•15156 
4,95250 
-•49297 
-♦53421 



•93077 

-•12834 
•93077 



-.03614 
-.03614 
•99869 

-•3#4!2 
^•30412 
•90278 
-*»*81*9 



1^ 



• 855*1 
«**7*fc32 
-•30412 

•56045 

•00000 
-#02964 

•99956 

•00000 
-♦24751 

•96886 
-•32679 
-•15**9 

•93234 
-.52287 
-•2*731 

•81568 
-•3*638 
-•08821 

•93311 
-♦52287 
-♦13232 

♦84207 
-•52267 
-•13232 

•84207 



•03614 
-•03614 

•99869 

•30412 
-•30412 

•90278 
-•20566 
-♦19007 

•95998 
-•32906 
-•30412 

•89399 
-•21937 
-•08393 
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Z OR M 


•00000 


3 • 00000 


6*07732 


6 


6 








X OR K 


•00000 


-•30000 


-•64479 












Y OR L 


• 00000 




— * T/TF 












Z OR M 


•00000 


3»00000 


6*75000 


D 


7 








X OR K 


• 00000 


-•30000 


-1*08431 












Y OR L 


• 00000 


•30000 


-* 76046 












Z OR M 


•00000 


3*00000 


8*00000 


o 






T NT 


W/OPT AX 








7 

f 


l 








X OR K 


— • 1 0000 


•30000 


•31139 












Y OR t 


• 00000 


• 30000 


•30869 












Z OR M 


•00000 


$•00000 


3*08697 


7 


•> 

e. 








X OR K 


—•10000 


• 30000 


•30660 










Y OR L 


•00000 


•30000 


•29755 












Z OR M 


•00000 


3*00000 


3*38486 


7 


* ■ 








X OR K 


•»• 10000 


•30000 


•00630 












Y OR L 


a 00000 


• 30000 


-•02811 












Z OR M 


• 00000 


3*00000 


4*35900 


7 










X OP K 


—•10000 


•30000 


~* 31611 












Y OR L 


•00000 


•30000 


-.15900 












Z OR M 


« 00000 


3 • 00000 


4*95250 


7 


e 








X OR K 


— * 10000 


•30000 


-1 •91805 












Y OR L 


•00000 


•30000 


-#80890 












I OR M 


•00000 


3«00000 


6*20602 


7 


o 


APERTURE STOP 








•00136 


8 


1 

X 








X OR K 


-•10000 


•00000 












Y OR L 


#00000 


•30000 


#30409 












Z OR W 


• 00000 


3*00000 


3*04095 


8 










X OR K 


— • 10000 


•00000 


•01006 








Y OR L 


•00000 


♦30000 


•29198 












Z OR M 


•00000 


3*00000 


3.44623 


8 


3 








X OR K 


-#10000 


•00000 


•03481 










V ftP L 


•00000 


•30000 


•03186 












Z OR M 


• 00000 


3«00000 


4*38731 


o 

o 


H 








X OR K 


— • 1 0000 


•00000 


-•15537 










Y OR L 


00000 


•30000 


-•04152 












Z OR M 


• 00000 


3*00000 


4*95250 


a 

o 


K 








X OR K 


— • 10000 


•00000 


-•81469 








Y OR L 


• 00000 


•30000 


-•36538 












I OR M 


#00000 


3*00000 


6*03457 


8 


6 








X OR K 


— • 10000 


•00000 


-1 •07115 












Y OR t 


•00000 


•30000 


— *4333* 












Z OR W 


•00000 


3»00000 


6*75000 


O 


7 








X OR K 


**• 10000 


•00000 


-1*80976 












Y OR L 


•00000 


•30000 


-♦62984 












Z OR M 


•00000 


3*00000 


8*00000 


* 




NO 


INT 


V/OPT 


AX 








Q 

y, ■ 










X OR K 


-•10000 


— •30000 


-•90568 










Y OR t 


• 00000 


•30000 


•30852 












Z OR M 


•00000 


3»00000 


3*06521 


9 


2 








X OR X 


-•10000 


-•30000 


-•28848 












Y OR L 


•00000 


•30000 


•29772 












Z OR M 


•00000 


3*00000 


3*39209 


9 


3 








X OR K 


— • 100190 


—•30000 


•10094 












V OR L 


•00000 


•30000 


-*06333 












Z OR M 


•00000 


3*00000 


4*45344 



•97202 
-.32906 
-•12590 

•93587 
-•32906 
-.12590 

•93587 



-♦01673 
-.03736 

•99916 
-•28045 
-•30434 

.91034 
-•46886 
-.19021 

•86254 
-.75018 
-.30434 

•58*02 
-♦50012 

•11602 

•83787 

♦02133 
-*02971 

♦ 9*933 
•02552 

-•24T42 

• 9*851 
-•31998 
-•15474 

.93636 
-.50413 
-.24762 

.82736 
-.33408 
-•06932 

.93738 
-.50413 
<»• 1*9*8 

♦83317 
-.50413 
-♦13998 

♦63317 



•05589 
~*03509 

.99731 

•32813 
-•30423 

♦89429 
-.19T63 
-.19014 

•98165 
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9 


4 


x 


OR 








Y 


OR 


L 






Z 


or 


M 


9 


5 


X 


on 


K 






Y 


on 


L 






Z 


on 


M 


9 




X 


on 


K 






Y 


on 


L 






Z 


on 


M 


9 


7 


X 


on 








Y 


on 


L 






Z 


on 


M 



9 NO INT W/OPT AX 



10 


1 


X OR 


K 






Y OR 


• 






Z OR 


M 


10 


2 


X OR 


K 






Y OR 


t 






2 OR 


M 


10 


3 


X OR 


K 






Y OR 


L 






i on 




10 


4 


X OR 


K 






Y OR 


L 






Z OR 


M 


10 


5 


X OR 


K 






Y OR 


L 






Z OR 


M 


10 


6 


X OR 


K 






Y OR 


L 






Z OR 


W 


10 


7 


X OR 


K 






Y OR 


L 






Z OR 


M 


10 


OPT AX 


1NTERS€CTI0N 


Z « 


11 


1 


X OR 


K 






Y OR 


L 






Z OR 


M 


11 


2 


X OR 


K 






Y OR 


L 






Z OR 


M 


11 


3 


X OR 


K 






Y OR 


L 






z on 


M 


11 


4 


X OR 


K 






Y OR 


L 






Z OR 


M 


11 


5 


X OR 


K 






Y OR 


L 






Z OR 


ft 


11 


6 


X OR 


K 






Y OR 


L 






Z OR 


« 


11 


7 


X OR 








Y OR 


t 



— ♦ 10000 




► 30000 


-•00162 


-•31621 


♦00000 




► 30000 


-♦1*200 


-•30423 


•00000 


3< 


100000 


4#*5250 


•89*56 


— • 10000 




► 30000 


-•3**54 


-♦21081 


•00000 
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C GENERAL RAY TRACE PROGRAM CARD I/O 

DIMENSION XO(35)*YO(35) .ZO( 35 ) ♦ ALPHA ( 35 ) »BETA ( 35 > • GAMMA (35)#A(33> 
DIMENSION REFR (36) ♦ API (35) • AP2 ( 35 ) > AP3 ( 35 ) # AP4( 35)»AP5(35) »AP6 ( 35 ) 
DIMENSION NAP(35) fNOUT(35)»CKBAR(35> »CLBAR(35) »CMBARC35) tXflBAR(35) 
DIMENSION Y0BAR(35)tZ0BAR(35)»B(35)»C(35)»D(35) f EC35) 
DIMENSION R(35) .KSUR(35) 
KKK «= 1 

GO TO (813. 803) t KKK 
803 PRINT 115 

115 FORMAT (20HLOAD DATA»PUSH START) 

PAUSE 
813 KKK « 2 
C READ TITLE CARD 

READ 2 

2FORMATU9H ,8H ) 

PUNCH 2 

PUNCH 100 

JB « 50 

PUNCH 1 

PUNCH 100 

PUNCH 100 

PI * 3.14159265 

CONV • PI/180. 
C READ HEADER CARD 

102 FORMAT ( Fl 1 . 5 » 1 3 > E15 . 8) 

READ 102 » REFR ( 1 ) »NOSUR »TOL 
C REFR » INITIAL INDEX OF REFR , NOSUR « NO. OF SURFACES 

C TOL * MIN. LIMIT ON ITERATION INCREMENT 

NOSUR « NOSUR+1 P o u 
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DO 203 I « 2% NOSUR 
C READ SURFACE DATA 

103 FORMAT <F1L5# F11.5, F11.5. F1U5, F11.5, Fl 1 .5 • I 2 , 1 2 , 1 3 ) 

READ 103, XQt I J »YO( I ) »ZO< I ) » ALPHA ( I ) »BETA ( I ) » GAMMA ( I ) 
C XOt YO» AND ZO ARE LOCAL SYSTEM SURFACE VERTEX COORDINATES. 

C ALPHA, BETA , AND GAMMA ARE EULER ROTATIONAL ANGLES* 

READ 103. A ( I >♦¥*< I ) »C< I ) ,D< I ) »F< I) ,RFFP ( I * 
C A, 8, C, D, AND E ARE SURFACE EQUATION COEFFICIENTS. 

C REFR = INDEX OF REFRACTION FOLLOWING SURFACE. 

203 READ 103 » API C I ) ♦ AP2 ( I ) » AP3 ( I ) » AP4t I ) , APS ( I ) • AP6 ( I ) »NAP ( I J » NOUT ( I ) 
C API, AP2 , AP3 , AP4, AP5, AND AP6 SPECIFY APERTURE DIMENSIONS. SEE 

C INPUT WRITE UP. 

C NAP * FOR CIRCULAR- ANNULAR APERTURE, • 1 FOR RECT-TRAPEZOIDAL 

C APERTURE, = 2 FOR HYPERBOLIC APERTURE . 

C NOUT « FOR NO OUTPUT AT SURFACE, ■ 1 OTHERWISE. 

C READ RAY DATA 

C SWITCH 1 ON TO USE SINGLE RAY CARD INPUT 

IFtSENSE SWITCH 1) 205, 201 
205 REAO 103 , XA , YA ,Z A .RPARl , RPAR2 ,RPAR3 ,N IN ,NAX I N ♦ I RAY 
C XA, YA, AND ZA ARE RAY COORDINATES AT FIRST POINT 

C RPAR1, RPAR2, RPAR3 ARE RAY COORDINATES AT SECOND POINT 

C OR RAY DIRECTION COSINES AT FIRST POINT 

C NIN * IF RAYS ARE SPEC. BY 2 POINTS 

C NIN * 1 IF RAYS ARE SPEC. BY 1 POINT AND DIR. COSINES. 

C NAXIN « 1 FOR COMPUTATION OF INTERSECTION OF RAY WITH OPTICAL 

C AXIS* * OTHERWISE IRAY * RAY NUMBER. 

GO TO 206 

201 READ XH. FXU1, FZ1» XGAP1* FXU2, FZ2» XGAP2 

READ 116» FYU2* YGAP2 r . • 

x) 'k 
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C RAY INPUT DATA » FXU1 « MAX.XR* FZ1 « ZR* FXU2 » MAX. X AT POINT 2 

C XGAPl * X SPACING AT POINT 1, XGAP2 « X SPACING AT POINT 2 

C FZ2 • Z COORDINATE AT POINT 2 

C FVU2 » MAX Y COORDINATE AT 2ND POINT* YGAP2 » Y SPACING AT POINT 2 

116 FORMATtFin5*FlU5*Fin5*F11.5*Fll,5,F11.5) 
IRAY » 

GAP3«0# 

RPAR2-FYU2 
812 PF»AP2**PAR?~GAP3 

IF<RPAR2+FYU2)803t8l4»814 
814 GAP3«YGAP2 

GAP1 » 0* 

XA * FXU1 
4 XA « XA^GAPl 

lFfXA+FXUim2*804>804 
8^4 GAP1 « X6AP1 

GAP2 • 0. 

RPAR1 « FXU2 
3 RPAR1 • RPAR1-6AP2 

I F ( RP AR 1 4-F XU2 ) 4 » 8 05 * 805 
805 GAP2 * XGAP2 

YA * 0»0 

ZA « FZ1 

RPAR3 « FZ2 

NIN » 

NAXIN « 1 

IRAY * IRAY41 
206 NIN - NIN+1 

60 TO (207*208)* NIN 541 



208 CKBAR<1) ■ RPAR1 

CLBARtl) * ***** 

CMBAR(l) * KPAR3 

60 TO 209 
207 XO « RPAR1-XA 

YD » RPAR2-YA 

ZD « RPAR3-ZA 

RALEN * SORTtXD*XD*YD*YD+ZD*ZD> 
CKBAR ( 1 ) « *0/RAUN 
CLBAR(l) » YD/RAUK 
CUBA* 111 * ZO/RALEW 
209 X08AR{1> « XA 
Y0BAR<1» « YA 
Z0BARC1) * ZA 
DO 15 I ■ 2* NOSUR 
IM1 * 1-1 

SA » S!fMCONV»ALRHAU M 
CA « COS<CONV»AUPMA(!)) 
SB • S1N(C0HV*BETA(!>) 
CB * C0S(C0«V*BHTA(in 
SG * S!RtCOWV*GAMMA< I H 
CG « COS < COKY»GAWWA ( lit 
XI » X0BARUMll~XOm 
Yl • Y»BARtim)-YO« II 
Zl • Z0BAR(IMWOm 
Rll » CA*C6*$A»SB»S<5 
Rl? « -CB*$G 
R13 • CA»S8*SG-SA«CG 
R21 • CA*SG-SA*SB*CG 



R22 a CB*CG 

R23 * ~(SA*SG+CA*SB*CG) 
R31 * SA*CB 
R32 « SB 
R33 » CA*CB 

X<* * X1*R11+Y1»R12+Z1*R13 
Y0 a X1*R21+Y1*R22+Z1*R23 
20 » X1*R31+Y1#R32+Z1*R33 

CK * CKBAR(IM1J#R11+CLBAR(IM1)«R12+CMBAR(IM1)»R13 
CL « CKBAR(!Ml)»R21+CLBAR(IHl)*f?22+CMBAR<IMll#R23 
CM « CKBARriMl)*R31+CLBAR(IMl)»R32-fCMBAR(IMl)»R33 
J * 

!F(D(I)) 310»31U302 
3 1C5 Z2 * -20 

IF (CM) 600» 10,600 
600 X0 ■ X0-2.*CK*Z0/CM 

Y0 * Y0-2«*CL*20/CN 

GO TO 211 
311 IF(CM) 210i302 t 210 

210 X0 « X<S-CK*Z0/CM 
Y0 » Y0-CL«Z0/CM 
22 * 0» 

GO TO 211 
302 Z2 « Z0 

211 $ » 0, 

5 J » J+l 

X « X0+CK»S 
Y * Y0+CL*S 
Z « Z2+CM*S 
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IF (D( I ) ) 212»213f2l4 

212 IF <Z) 7»6»6 

7 Z * -Z 

IF (CM) 400 10» 400 

400 X * X0+CK*<Z-Z2)/CH 
Y » Y0+CL* ,Z-Z2)/CM 

6 IF<Y) 215,216>216 

215 Y = -Y 

IF(CL) 401, 10t 401 

401 X « X0+CK*<Y-Y0)/CL 
Z * Z2+CM*<Y-Y0)/CL 

216 DO » Dm*DU) 

F » EH 1*DD*X»X-K>0*Y*Y-Z*Z 
FX « 2.*X«E(I)»DO 
FY * 2.»Y#D0 
FZ « -2»*Z 
GO TO 8 
214 IF<Z) 6,6t7 

213 F « A( I )*X*X+B( I )*Y*Y+C( I )*Z*2+Z 
FX « 2»»A{ I)*X 

FY * 2.»B(H*Y 
FZ * 2»*C( !>»Z*1« 

8 DETMT * CK*FX+CL*FY+CM»FZ 
IF(DETMT) 218,217»218 

217 IF<F) 10t9.10 

10 PUNCH 104t IRAY» IM1 

11 CONTINUE 

IF (SENSE SWITCH 1)205*3 

218 DELS * -F/DETMT . 

5 f 4 ' * 
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DFLS2 - DELS* DELS 
T0L2 • T0L*T0t 
IF<D€L52~TOL2l 9* 9, 219 

219 IFU-JB) 220*10*10 

220 S « 5+DFLS 
60 TO 5 

9 IFtDmi 320*321*301 

320 IF(S-2»»20/CM) 221* 222* 222 

321 IF(CM) 300*301 *30<* 
301 IFtS) ?21*222*2?2 

300 IF<S-Z07CM) 221,222*222 

221 PUNCH 105. !KAY* IM1 
CO TO U 

222 RAP « NAP U 1+1 

60 TO (223*224*225) *KAP 

223 RHSO « tX^APlf ! H* < X-AP1 ( I >) ♦< Y-AP? ( I) > * t Y-AP2 (I U 
!F(RHS0-AP3( I)»AP3( I) ) 12* 226* 226 

12 PUNCH 106* 1RAY* IM1 
60 TO 11 

226 IF(RHSQ~AP4U>*AP4Un 13* 12* 12 

224 IF(Y-AP3(!)I 12.12»227 

227 IFtY-AP4U!) 228*12*12 

228 !F<X-<AP9m*fY-AP3tin+APl( I) M 12*1?*?29 

229 IF<X-(AP6tn«fY-AP3<n)4.AP2mn 13*12*12 

225 !FtY-AP5(ID 12*12*230 

230 IFfY-AP6UM 231*12*12 

231 FFF * <X-APlUn/AP3(I> 

fff2 » rr?*Frp 

666* (Y-AP2(!))/AP4( I > 

54S 
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GGG2 * GGG*GGG 
IF(FFF?-GGG2-1 # ) 13* 12* 1? 
1? RAT * RFFR ( TM1 ) /PFFR ( I ) 

ALC * { RAT*DETMT ) / ( FX*FX+FY*FY+F7*FZ ) 
IF ( REFR ( I ) +REFR ( IM1 ) ) 232*233*232 

233 GAMUC » 2»*ALC 
RAT » U 

60 TO 14 

232 BLC a (RAT*RAT~1.)/(FX*FX+FY*FY+FZ*FZ) 
OlSf « ALC*ALC-BLC 
IF(DISC) 234*235,235 

234 PUNCH 1?»7* f RAY* I Ml 
GO TO 11 

235 DISC s SORT(OISC) 
IF(ALC) 236.10*237 

236 DISC « ~DISC 

237 GAMUC • DI5C-ALC 

14 CK » RAT*CK+6AMUC*FX 

CL * RAT*CL+GAMUC*FY 

C* - RAT*CM*GAMUC*FZ 

X0BARU) « Rll»X+R2l*Y+R31*Z+XO( I > 

Y0BAR( I ) m R12»X+R22*Y-fR32*Z*YO(I> 

Z0BAR ( I ) « R13*X+R23*Y+R33*Z+Z0< !> 

CKBAR(f) * R11*CK>R21*CL+R31*CM 

CIBARU) » *12*CK+*22*CL+R32*CM 

CMBAR ( I ) » R13*CK+R23*CL+P33*CM 

KOUT « NOUT( I)+l 

GO TO {15*16) *KOUT 
16 PUNCH 108* IRAY»IM1»XA»RPAR1*X(*BAR< I > *CKBARU ) 

5 ' < <i 
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PUNCH 109»YA»RPAR2»Y0BAR< ! ) tCLBAR< I ) 
PUNCH 110 f ZA»RPAR3»Z0BAR( I ) tCMBAR( I) 
15 CONTINUE 

NAXIN * NAXIN+1 

GO TO ( 17#239) »NAXIN 

239 IF (CKBARt NOSUR) ) 240»24U240 

241 IF(X0*AR(NOSUR) ) 18,242»18 
18 PUNCH lilt IRAY 

GO TO 17 

242 S * -Y0BAR (NOSUR) 

I F ( CLBAR ( NOSUR ) ) 243»244»243 

244 IF <Y0BAR( NOSUR) ) 18,245>18 

243 S « S/CLBAR (NOSUR) 
GO TO 245 

240 S « -X08ARI NOSUR )/CKBAR( NOSUR) 
I F C CLBAR ( NOSUR ) ) 246 » 244 ♦ 246 

246 I F ( S+Y0BAR ( NOSUR ) /CLBAR ( NOSUR ) ) 18»245>18 

245 AX IN » Z0BAK< NOSUR ) +S*CMBAR( NOSUR) 
PUNCH 112 t IRAYtAX IN 

17 PUNCH 100 

IFtSFNSF SWITCH 1) 205, 3 
1 FORMAT t 8HRAY SUPF » 27X6H08 J PT f 4X8H?D PT/DC.5X6HINT PT,6X7HD!R COS! 
100 FORMAT (IX) 

104 FORMAT (I3»I3»13H NO INCIDENCE) 

105 FORMAT U3tI3*13H VIRTUAL PATH) 

106 FORMAT (I3,t3»l4H APERTURE STOP) 

107 FORMAT (I3*I3»14H NO REFRACTION) 

108 FORMAT C I3tI3»16X.8HX OR K » Fll #5 ♦ IX »F1 1 .5* IX fFl 1 ,5 ♦ IX #F1 1 .5 ) 

109 FORMAT (22X#8HY OR L • Fl 1 .5 ♦ IX »F1 1 .5 • IX »F1 1 #5 * IX . F! 1 »5 ) 

5 \ i 
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W 110 FORMAT t22X»8HZ OR M *F1 1 #3 » IX »F1 1 .3 , X X »F 11 .5 ♦ IX » Fl 1 ,5 ) 

111 FORMAT U3>4X»13HNO INT W/OPT AX) 

112 FORMAT ( I3»4X»23HOPT AX INTERSECTION Z *»F1W5) 
END 
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